diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2001-04-26 21:13:29 +0000 |
|---|---|---|
| committer | Toon Moene <toon@moene.indiv.nluug.nl> | 2001-04-26 21:13:29 +0000 |
| commit | 5193a498db34d51a978b436d967e5abca80dd03f (patch) | |
| tree | 85cb8fa4332e8caac5855293be8bc85c46770eaa /gcc/testsuite/g77.f-torture | |
| parent | 7cc477d1a781457c3eb19aa9a091303bb06269f5 (diff) | |
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.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@41615 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/20010426.f | 6 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/20010426.f | 2 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/compile/20010426.f b/gcc/testsuite/g77.f-torture/compile/20010426.f new file mode 100644 index 00000000000..b22b02907a6 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/20010426.f @@ -0,0 +1,6 @@ + function f(c) + implicit none + real*8 c, f + f = sqrt(c) + return + end diff --git a/gcc/testsuite/g77.f-torture/execute/20010426.f b/gcc/testsuite/g77.f-torture/execute/20010426.f new file mode 100644 index 00000000000..dd1b5bdd0e8 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/20010426.f @@ -0,0 +1,2 @@ + print*,cos(1.0) + end |