diff options
| author | billingd <billingd@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-05-27 05:07:58 +0000 |
|---|---|---|
| committer | billingd <billingd@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-05-27 05:07:58 +0000 |
| commit | e9ebb329c93c60dbf56fc7315dee87ee71a60d9c (patch) | |
| tree | 03370d0f0adbdc00b0733f964f9d7854cc0139d3 | |
| parent | 1e07b4601fd40b6cce03491dda06ef750fd1f98e (diff) | |
| download | ppe42-gcc-e9ebb329c93c60dbf56fc7315dee87ee71a60d9c.tar.gz ppe42-gcc-e9ebb329c93c60dbf56fc7315dee87ee71a60d9c.zip | |
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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@67181 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 9e01a21da74..6f47f9a04dd 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 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..aef91736fc4 --- /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 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 |
