[Bug fortran/29870] Arithmetic IF, existing label and "label not defined"

[jvdelisle at gcc dot gnu dot org]

------- Comment #3 from jvdelisle at gcc dot gnu dot org  2006-11-17 05:15 
-------
This also compiles fine or you can use -fno-range-check

      SUBROUTINE ACFI(X,ARG,VAL,Y,NDIM,EPS,IER)
      REAL(KIND=8) Y
      IF(Q3)11,12,11
   11 Y=P3/Q3
   12 Y=1.E75_8
      END

This is not a gfortran bug.  1.E75 can not be represented as a KIND=4

Use -fno-range-check on the following to see what I mean.

      REAL(KIND=4) Y
      Y=1.E75
      PRINT *, Y
      PRINT *, HUGE(Y)
      END


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |INVALID


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