diff options
Diffstat (limited to 'gcc/testsuite/g77.dg')
-rw-r--r-- | gcc/testsuite/g77.dg/ffixed-form-1.f | 6 | ||||
-rw-r--r-- | gcc/testsuite/g77.dg/ffixed-form-2.f | 12 | ||||
-rw-r--r-- | gcc/testsuite/g77.dg/ffree-form-2.f | 11 | ||||
-rw-r--r-- | gcc/testsuite/g77.dg/ffree-form-3.f | 20 |
4 files changed, 49 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.dg/ffixed-form-1.f b/gcc/testsuite/g77.dg/ffixed-form-1.f new file mode 100644 index 00000000000..4b5f72301da --- /dev/null +++ b/gcc/testsuite/g77.dg/ffixed-form-1.f @@ -0,0 +1,6 @@ +! Test compiler flags: -ffixed-form +! Origin: David Billinghurst <David.Billinghurst@riotinto.com> +! +! { dg-do compile } +! { dg-options "-ffixed-form" } + end diff --git a/gcc/testsuite/g77.dg/ffixed-form-2.f b/gcc/testsuite/g77.dg/ffixed-form-2.f new file mode 100644 index 00000000000..5f6980ca0ac --- /dev/null +++ b/gcc/testsuite/g77.dg/ffixed-form-2.f @@ -0,0 +1,12 @@ +! PR fortran/10843 +! Origin: Brad Davis <bdavis9659@comcast.net> +! +! { dg-do compile } +! { dg-options "-ffixed-form" } + GO TO 3 + GOTO 3 + 3 CONTINUE + GOTO = 55 + GO TO = 55 + END + diff --git a/gcc/testsuite/g77.dg/ffree-form-2.f b/gcc/testsuite/g77.dg/ffree-form-2.f new file mode 100644 index 00000000000..b07db218789 --- /dev/null +++ b/gcc/testsuite/g77.dg/ffree-form-2.f @@ -0,0 +1,11 @@ +! PR fortran/10843 +! Origin: Brad Davis <bdavis9659@comcast.net> +! +! { dg-do compile } +! { dg-options "-ffree-form" } + GO TO 3 + GOTO 3 + 3 CONTINUE + GOTO = 55 + END + diff --git a/gcc/testsuite/g77.dg/ffree-form-3.f b/gcc/testsuite/g77.dg/ffree-form-3.f new file mode 100644 index 00000000000..a30d6046081 --- /dev/null +++ b/gcc/testsuite/g77.dg/ffree-form-3.f @@ -0,0 +1,20 @@ +! Test acceptance of keywords in free format +! Origin: David Billinghurst <David.Billinghurst@riotinto.com> +! +! { dg-do compile } +! { dg-options "-ffree-form" } + integer i, j + i = 1 + if ( i .eq. 1 ) then + go = 2 + endif + if ( i .eq. 3 ) then + i = 4 + end if + do i = 1, 3 + j = i + end do + do j = 1, 3 + i = j + enddo + end |