diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com> | 2003-05-27 05:07:58 +0000 |
|---|---|---|
| committer | David Billinghurst <billingd@gcc.gnu.org> | 2003-05-27 05:07:58 +0000 |
| commit | d6a9f13bee4d87fd984d515b6c9b650e875b9471 (patch) | |
| tree | 03370d0f0adbdc00b0733f964f9d7854cc0139d3 | |
| parent | 87bd5437e0dae1e1220b8ea84c5c510063cee0a5 (diff) | |
| download | gcc-d6a9f13bee4d87fd984d515b6c9b650e875b9471.zip gcc-d6a9f13bee4d87fd984d515b6c9b650e875b9471.tar.gz gcc-d6a9f13bee4d87fd984d515b6c9b650e875b9471.tar.bz2 | |
re PR fortran/10843 (g77 -ffree-form rejects "GO TO".)
2003-05-27 David Billinghurst (David.Billinghurst@riotinto.com)
PR fortran/10843
* g77.dg/ffixed-form-1.f: New test
* g77.dg/ffixed-form-2.f: New test
* g77.dg/ffree-form-2.f: New test - XFAIL pending fix
* g77.dg/ffree-form-3.f: New test
From-SVN: r67181
| -rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
| -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 | 12 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/ffree-form-3.f | 20 |
5 files changed, 58 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 9e01a21..6f47f9a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2003-05-27 David Billinghurst (David.Billinghurst@riotinto.com) + + PR fortran/10843 + * g77.dg/ffixed-form-1.f: New test + * g77.dg/ffixed-form-2.f: New test + * g77.dg/ffree-form-2.f: New test - XFAIL pending fix + * g77.dg/ffree-form-3.f: New test + 2003-05-26 Andreas Tobler <a.tobler@schweiz.ch> * gcc.dg/wchar_t-1.c: XFAIL on darwin, no wchar.h available. 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 0000000..4b5f723 --- /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 0000000..5f6980c --- /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 0000000..aef9173 --- /dev/null +++ b/gcc/testsuite/g77.dg/ffree-form-2.f @@ -0,0 +1,12 @@ +! PR fortran/10843 +! Origin: Brad Davis <bdavis9659@comcast.net> +! +! { dg-do compile } +! { dg-options "-ffree-form" } +! { dg-excess-errors "GOTO" } + 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 0000000..a30d604 --- /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 |