1 2 3 4 5 6
! { dg-do run } ! { dg-options "-ffixed-form" } PROGRAM A3 !234567890 !$ PRINT *, "Compiled by an OpenMP-compliant implementation." END PROGRAM A3