2
0
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:
Toon Moene 2001-04-26 23:13:29 +02:00 committed by Toon Moene
parent f658da59d4
commit f6ce87c0a6
3 changed files with 13 additions and 0 deletions
gcc/testsuite
ChangeLog
g77.f-torture
compile
execute

View File

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

View File

@ -0,0 +1,6 @@
function f(c)
implicit none
real*8 c, f
f = sqrt(c)
return
end

View File

@ -0,0 +1,2 @@
print*,cos(1.0)
end