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