diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-03-13 15:33:56 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-03-13 10:33:56 -0500 |
| commit | 98941e0190f374aca42970b46a18a2793faa5b88 (patch) | |
| tree | 955640ba7f3b8f268164edac4958f671a6d3d30d /gcc | |
| parent | bf1fc7622a4bb621faad5cd4d8485b382b17b9ee (diff) | |
| download | gcc-98941e0190f374aca42970b46a18a2793faa5b88.zip gcc-98941e0190f374aca42970b46a18a2793faa5b88.tar.gz gcc-98941e0190f374aca42970b46a18a2793faa5b88.tar.bz2 | |
More g77 tests
From-SVN: r25751
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/19990313-2.f | 7 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/19990313-3.f | 7 |
3 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 837ef52..19e73db 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 1999-03-13 Craig Burley <craig@jcb-sc.com> + * g77.f-torture/execute/19990313-2.f: New test. + * g77.f-torture/execute/19990313-3.f: New test. + +1999-03-13 Craig Burley <craig@jcb-sc.com> + * g77.f-torture/execute/19990313-0.f: New test. * g77.f-torture/execute/19990313-1.f: New test. diff --git a/gcc/testsuite/g77.f-torture/execute/19990313-2.f b/gcc/testsuite/g77.f-torture/execute/19990313-2.f new file mode 100644 index 0000000..ffb7549 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/19990313-2.f @@ -0,0 +1,7 @@ + integer *8 foo, bar + complex c + data c/(4e10,0)/ + foo = 4e10 + bar = c + if (foo .ne. bar) call abort + end diff --git a/gcc/testsuite/g77.f-torture/execute/19990313-3.f b/gcc/testsuite/g77.f-torture/execute/19990313-3.f new file mode 100644 index 0000000..6366dcc --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/19990313-3.f @@ -0,0 +1,7 @@ + integer *8 foo, bar + double complex c + data c/(4d10,0)/ + foo = 4d10 + bar = c + if (foo .ne. bar) call abort + end |