[Bug fortran/41403] Optimization: NIST test FM013.f fails at -O1 and above

[jvdelisle at gcc dot gnu dot org]

------- Comment #3 from jvdelisle at gcc dot gnu dot org  2009-09-19 06:15 
-------
Reduced case:

Expected result:

$ ./a.out 
                    0 ERRORS ENCOUNTERED

Wrong result:

$ ./a.out 
                    1 ERRORS ENCOUNTERED

      PROGRAM FM013
      I01 = 5                                                           
      I02 = 6                                                           
      IVPASS=0                                                          
      IVFAIL=0                                                          
      IVDELE=0                                                          
      ICZERO=0                                                          
      IVTNUM = 126                                                      
C                                                                       
      IF (ICZERO) 31260, 1260, 31260                                    
 1260 CONTINUE                                                          
      ASSIGN 1263 TO I                                                  
      GO TO I, (1262,1263,1264)                                         
 1262 ICON01 = 1262                                                     
      GO TO 1265                                                        
 1263 ICON01 = 1263                                                     
      GO TO 1265                                                        
 1264 ICON01 = 1264                                                     
 1265 CONTINUE                                                          
      GO TO 41260                                                       
31260 IVDELE = IVDELE + 1                                               
      IF (ICZERO) 41260, 1271, 41260                                    
41260 IF ( ICON01 - 1263 )  21260, 11260, 21260                         
11260 IVPASS = IVPASS + 1                                               
      GO TO 1271                                                        
21260 IVFAIL = IVFAIL + 1                                               
      IVCOMP=ICON01                                                     
      IVCORR = 1263                                                     
 1271 CONTINUE                                                          
      IVTNUM = 127                                                      
99999 CONTINUE                                                          
      WRITE (I02,90008)  IVFAIL                                         
      STOP                                                              
90008 FORMAT (" ",15X,I5," ERRORS ENCOUNTERED" )                        
      END                                                               


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41403