This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/29870] Arithmetic IF, existing label and "label not defined"
- From: "jvdelisle at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 17 Nov 2006 05:15:04 -0000
- Subject: [Bug fortran/29870] Arithmetic IF, existing label and "label not defined"
- References: <bug-29870-13404@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla 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