diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-04-19 05:54:09 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-04-19 05:54:09 +0000 |
| commit | 06b0a933a200f652a5b831cdf17be3da79cbb041 (patch) | |
| tree | e196e98f1c2bad1e3d10d4c7817aa162594a82f9 /gcc | |
| parent | c6a754f2d74457730a2c009cabbc4784a229f3e6 (diff) | |
| download | gcc-06b0a933a200f652a5b831cdf17be3da79cbb041.zip gcc-06b0a933a200f652a5b831cdf17be3da79cbb041.tar.gz gcc-06b0a933a200f652a5b831cdf17be3da79cbb041.tar.bz2 | |
New File.
From-SVN: r19294
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/970125-0.f | 16 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/980419-1.f | 6 |
2 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/compile/970125-0.f b/gcc/testsuite/g77.f-torture/compile/970125-0.f new file mode 100644 index 0000000..d2098ba --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/970125-0.f @@ -0,0 +1,16 @@ + integer*4 i4 + integer*8 i8 + integer*8 max4 + data max4/2147483647/ + i4 = %loc(i4) + i8 = %loc(i8) + print *, max4 + print *, i4, %loc(i4) + print *, i8, %loc(i8) + call foo(i4, %loc(i4), i8, %loc(i8)) + end + subroutine foo(i4, i4a, i8, i8a) + integer*8 i8 + print *, i4, i4a + print *, i8, i8a + end diff --git a/gcc/testsuite/g77.f-torture/compile/980419-1.f b/gcc/testsuite/g77.f-torture/compile/980419-1.f new file mode 100644 index 0000000..8370ef5 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/980419-1.f @@ -0,0 +1,6 @@ + logical l(10) + integer i(10) + goto (10,20),l + goto (10,20),i + 10 stop + 20 end |