Bug 18561 - IF (logical ) IF (arith) lab1 , lab 2 lab 3 is unclassifiable
Summary: IF (logical ) IF (arith) lab1 , lab 2 lab 3 is unclassifiable
Status: RESOLVED DUPLICATE of bug 17229
Alias: None
Product: gcc
Classification: Unclassified
Component: fortran (show other bugs)
Version: 4.0.0
: P2 normal
Target Milestone: ---
Assignee: Not yet assigned to anyone
URL:
Keywords:
Depends on:
Blocks:
 
Reported: 2004-11-19 08:22 UTC by Paul Thomas
Modified: 2005-07-23 22:49 UTC (History)
1 user (show)

See Also:
Host:
Target:
Build:
Known to work:
Known to fail:
Last reconfirmed:


Attachments

Note You need to log in before you can comment on or make changes to this bug.
Description Paul Thomas 2004-11-19 08:22:52 UTC
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)
Comment 1 Andrew Pinski 2004-11-19 15:16:58 UTC

*** This bug has been marked as a duplicate of 17229 ***