diff options
| author | David Billinghurst <David.Billinghurst@riotinto.com> | 2001-08-01 20:35:59 +0000 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2001-08-01 20:35:59 +0000 |
| commit | 41ae4ee667020773a5cce9f693fbd19bec621d3b (patch) | |
| tree | bbe6b7f15b54c0db3bb1fa887ed7a0710d644e36 /gcc/testsuite/g77.dg/fno-f90-1.f | |
| parent | edf1b3f3179564a0db848df3691e1b805d87ebd2 (diff) | |
| download | gcc-41ae4ee667020773a5cce9f693fbd19bec621d3b.zip gcc-41ae4ee667020773a5cce9f693fbd19bec621d3b.tar.gz gcc-41ae4ee667020773a5cce9f693fbd19bec621d3b.tar.bz2 | |
[multiple changes]
2001-08-01 David Billinghurst <David.Billinghurst@riotinto.com>
* lib/g77.exp: Load gcc-defs.exp for common procedures
(g77_pass, g77_fail, g77_finish, g77_exit,
${tool}_check_unsupported_p} Now redundant. Deleted.
2001-08-01 David Billinghurst <David.Billinghurst@riotinto.com>
* g77.dg/fbackslash.f
* g77.dg/fcase-preserve.f
* g77.dg/ff90-1.f
* g77.dg/ffixed-line-length-0.f
* g77.dg/ffixed-line-length-132.f
* g77.dg/ffixed-line-length-7.f
* g77.dg/ffixed-line-length-72.f
* g77.dg/ffixed-line-length-none.f
* g77.dg/ffree-form-1.f
* g77.dg/fno-backslash.f
* g77.dg/fno-f90-1.f
* g77.dg/fno-fixed-form-1.f
* g77.dg/fno-onetrip.f
* g77.dg/fno-typeless-boz.f
* g77.dg/fno-underscoring.f
* g77.dg/fno-vxt-1.f
* g77.dg/fonetrip.f
* g77.dg/ftypeless-boz.f
* g77.dg/fugly-assumed.f
* g77.dg/funderscoring.f
* g77.dg/fvxt-1.f
From-SVN: r44555
Diffstat (limited to 'gcc/testsuite/g77.dg/fno-f90-1.f')
| -rw-r--r-- | gcc/testsuite/g77.dg/fno-f90-1.f | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.dg/fno-f90-1.f b/gcc/testsuite/g77.dg/fno-f90-1.f new file mode 100644 index 0000000..ac0f967 --- /dev/null +++ b/gcc/testsuite/g77.dg/fno-f90-1.f @@ -0,0 +1,15 @@ +C Test compiler flags: -fno-f90 +C Origin: David Billinghurst <David.Billinghurst@riotinto.com> +C +C Read the g77 manual entry on CMPAMBIG +C +C { dg-do run } +C { dg-options "-fno-f90 -fugly-complex" } + double complex z + z = (2.0d0,1.0d0) + call s(real(z)) + end + subroutine s(x) + real x + if ( abs(x-2.0) .gt. 1.0e-5 ) call abort + end |