Imported Upstream version 4.8.1
[platform/upstream/gcc48.git] / gcc / testsuite / gfortran.dg / g77 / cpp5.F
1         ! { dg-do run }
2 #include "cpp5.h"
3         IF (FOO().NE.1) CALL ABORT ()
4         END