mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-20 11:39:23 +08:00
20010426.f: New test.
2001-04-26 Toon Moene <toon@moene.indiv.nluug.nl> * g77.f-torture/compile/20010426.f: New test. * g77.f-torture/execute/20010426.f: New test. From-SVN: r41615
This commit is contained in:
parent
f658da59d4
commit
f6ce87c0a6
gcc/testsuite
@ -1,3 +1,8 @@
|
||||
2001-04-26 Toon Moene <toon@moene.indiv.nluug.nl>
|
||||
|
||||
* g77.f-torture/compile/20010426.f: New test.
|
||||
* g77.f-torture/execute/20010426.f: New test.
|
||||
|
||||
2001-04-26 Toon Moene <toon@moene.indiv.nluug.nl>
|
||||
|
||||
* g77.f-torture/compile/20000629-1.x: Remove - error
|
||||
|
6
gcc/testsuite/g77.f-torture/compile/20010426.f
Normal file
6
gcc/testsuite/g77.f-torture/compile/20010426.f
Normal file
@ -0,0 +1,6 @@
|
||||
function f(c)
|
||||
implicit none
|
||||
real*8 c, f
|
||||
f = sqrt(c)
|
||||
return
|
||||
end
|
2
gcc/testsuite/g77.f-torture/execute/20010426.f
Normal file
2
gcc/testsuite/g77.f-torture/execute/20010426.f
Normal file
@ -0,0 +1,2 @@
|
||||
print*,cos(1.0)
|
||||
end
|
Loading…
Reference in New Issue
Block a user