diff options
Diffstat (limited to 'gcc/testsuite/g77.f-torture/compile/13060.f')
-rw-r--r-- | gcc/testsuite/g77.f-torture/compile/13060.f | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/compile/13060.f b/gcc/testsuite/g77.f-torture/compile/13060.f new file mode 100644 index 00000000000..200117b0271 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/13060.f @@ -0,0 +1,13 @@ + subroutine geo2() + implicit none + + integer ms,n,ne(2) + + ne(1) = 1 + ne(2) = 2 + ms = 1 + + call call_me(ne(1)*ne(1)) + + n = ne(ms) + end |