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