Encountered in LLNL DLSODES.F - execreable stuff, obsolete too, but accepted by other brands. The fix is easy and looks cleaner. IS THIS A BUG OR AN ABOMINATION? program ifif_test integer i , j i = 1 j = 2 if ( i.EQ.1 ) if ( j -2 ) 10 , 20 , 30 10 PRINT *, 'thuuunk! j<2' stop 20 print *, 'Hello 1,2 world' STOP 30 PRINT *, 'uuurkk! j>2' end program ifif_test $ /irun/bin/gfortran -x f77 ifif_test.f90 In file ifif_test.f90:5 if ( i.EQ.1 ) if ( j -2 ) 10 , 20 , 30 1 Error: Unclassifiable statement in IF-clause at (1)
*** This bug has been marked as a duplicate of 17229 ***