| program test_include_syntax | |
| implicit none | |
| integer :: x, y | |
| x = 1 | |
| y = 0 | |
| ! include "timestwo.f90" | |
| include "timestwo.f90" ! inline comment check | |
| if (x/=2) error stop 'failed on first include' | |
| ! leading space check | |
| include 'timestwo.f90' | |
| if (x/=4) error stop 'failed on second include' | |
| ! Most Fortran compilers can't handle the non-standard #include, | |
| ! including (ha!) Flang, Gfortran, Ifort and PGI. | |
| ! #include "timestwo.f90" | |
| print *, 'OK: Fortran include tests: x=',x | |
| end program |