diff options
Diffstat (limited to 'test/Moretest/bigarrf.f')
| -rw-r--r-- | test/Moretest/bigarrf.f | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/test/Moretest/bigarrf.f b/test/Moretest/bigarrf.f new file mode 100644 index 0000000000..734863a016 --- /dev/null +++ b/test/Moretest/bigarrf.f @@ -0,0 +1,26 @@ + subroutine filltab() + + parameter (dimx = 8, dimy = 6) + real ftab(dimx, dimy) + common /ftab/ ftab + integer x, y + + do 100 x = 1, dimx + do 110 y = 1, dimy + ftab(x, y) = x * 100 + y + 110 continue + 100 continue + end + + subroutine printtab(tab, dimx, dimy) + + integer dimx, dimy + real tab(dimx, dimy) + integer x, y + + do 200 x = 1, dimx + print 300, x, (tab(x, y), y = 1, dimy) + 300 format(/1X, I3, 2X, 10F6.1/) + 200 continue + end + |