aboutsummaryrefslogtreecommitdiffstats
path: root/meson/test cases/fortran/19 fortran_std/legacy.f
diff options
context:
space:
mode:
Diffstat (limited to 'meson/test cases/fortran/19 fortran_std/legacy.f')
-rw-r--r--meson/test cases/fortran/19 fortran_std/legacy.f8
1 files changed, 8 insertions, 0 deletions
diff --git a/meson/test cases/fortran/19 fortran_std/legacy.f b/meson/test cases/fortran/19 fortran_std/legacy.f
new file mode 100644
index 000000000..014bcc1d0
--- /dev/null
+++ b/meson/test cases/fortran/19 fortran_std/legacy.f
@@ -0,0 +1,8 @@
+ program main
+ ! non-integer loop indices are deleted in Fortran 95 standard
+ real a
+
+ do 10 a=0,0.5,0.1
+10 continue
+
+ end program