diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-05-20 09:28:28 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-05-20 09:28:28 +0000 |
| commit | 83539a525350ec57aeb39025c9382d5e34d6ea36 (patch) | |
| tree | e981d7197e667d38771581a386cc1fb7936b7215 | |
| parent | 961ec1a55f026bfd67ad11991aaadaa2520fd57a (diff) | |
| download | gcc-83539a525350ec57aeb39025c9382d5e34d6ea36.zip gcc-83539a525350ec57aeb39025c9382d5e34d6ea36.tar.gz gcc-83539a525350ec57aeb39025c9382d5e34d6ea36.tar.bz2 | |
New test.
From-SVN: r19905
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/980520-1.f | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/980520-1.f b/gcc/testsuite/g77.f-torture/execute/980520-1.f new file mode 100644 index 0000000..d57791a --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/980520-1.f @@ -0,0 +1,4 @@ +c Produced a link error through not eliminating the unused statement +c function. It's in `execute' since it needs to link. + values(i,j) = val((i-1)*n+j) + end |