* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git] / gcc / testsuite / gfortran.dg / assign_6.f
blob135546b142bfaeda9e4e86448df8a26c7cce4f97
1 C { dg-do run }
2 C Option passed to avoid excess errors from obsolete warning
3 C { dg-options "-w" }
4 C PR22290
6 integer nz
7 assign 93 to nz
8 go to nz,(93)
9 93 continue
10 end