2
0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-12 09:44:57 +08:00

More g77 tests

From-SVN: r25751
This commit is contained in:
Craig Burley 1999-03-13 15:33:56 +00:00 committed by Craig Burley
parent bf1fc7622a
commit 98941e0190
3 changed files with 19 additions and 0 deletions
gcc/testsuite

View File

@ -1,3 +1,8 @@
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.

View File

@ -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

View File

@ -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