FSF GCC merge 02/23/03
[official-gcc.git] / gcc / testsuite / g77.f-torture / execute / 980520-1.f
blob6d05c6767fdf167a7ade20b2fdeb102ad308b4e9
1 c Produced a link error through not eliminating the unused statement
2 c function after 1998-05-15 change to gcc/toplev.c. It's in
3 c `execute' since it needs to link.
4 c Fixed by 1998-05-23 change to f/com.c.
5 values(i,j) = val((i-1)*n+j)
6 end