diff options
| author | Michael Hirsch, Ph.D <scivision@users.noreply.github.com> | 2019-06-23 10:56:05 -0400 |
|---|---|---|
| committer | Jussi Pakkanen <jpakkane@gmail.com> | 2019-06-23 21:11:16 +0300 |
| commit | c8d144b064169f5e7b34b76c95a585d9e4ca5f44 (patch) | |
| tree | 5b6e9b9e6b1fb944558bc61044751f8aeaad68c5 /test cases/fortran/15 include/include_syntax.f90 | |
| parent | 40a3a6c3d0de657163b4046ee36f62f6b521536b (diff) | |
| download | meson-c8d144b064169f5e7b34b76c95a585d9e4ca5f44.tar.gz | |
fortran include syntax checks
minvers
Diffstat (limited to 'test cases/fortran/15 include/include_syntax.f90')
| -rw-r--r-- | test cases/fortran/15 include/include_syntax.f90 | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/test cases/fortran/15 include/include_syntax.f90 b/test cases/fortran/15 include/include_syntax.f90 new file mode 100644 index 000000000..d35e0ceed --- /dev/null +++ b/test cases/fortran/15 include/include_syntax.f90 @@ -0,0 +1,23 @@ +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
\ No newline at end of file |