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:
parent
bf1fc7622a
commit
98941e0190
gcc/testsuite
@ -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.
|
||||
|
7
gcc/testsuite/g77.f-torture/execute/19990313-2.f
Normal file
7
gcc/testsuite/g77.f-torture/execute/19990313-2.f
Normal 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
|
7
gcc/testsuite/g77.f-torture/execute/19990313-3.f
Normal file
7
gcc/testsuite/g77.f-torture/execute/19990313-3.f
Normal 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
|
Loading…
Reference in New Issue
Block a user