https://gcc.gnu.org/bugzilla/show_bug.cgi?id=101123
Bug ID: 101123
Summary: [11/12 Regression] Invalid code for MAX0 with
-fdefault-integer-8
Product: gcc
Version: 12.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: rguenth at gcc dot gnu.org
Target Milestone: ---
> cat TESTN.f
IMPLICIT DOUBLE PRECISION (A-H,O-R,T-Z), INTEGER*4 (I-N)
COMMON KN(100)
KN(3)=10
KN(4)=20
CALL TEST
C
STOP
END
C _____________________________________________________________________
C
SUBROUTINE TEST
IMPLICIT DOUBLE PRECISION (A-H,O-R,T-Z), INTEGER*4 (I-N)
C
COMMON KN(100)
C
EQUIVALENCE (KN( 3),M ), (KN( 4),N )
MAXMN=MAX0(M,N)
RETURN
END
> ~/install/gcc-11/usr/local/bin/gfortran TESTN.f -c -fdefault-integer-8
> -fchecking
TESTN.f:11:21:
11 | SUBROUTINE TEST
| ^
Error: invalid types in conversion to integer
integer(kind=8)
integer(kind=4)
_2 = (integer(kind=8)) M.0;
TESTN.f:11: confused by earlier errors, bailing out
