https://gcc.gnu.org/bugzilla/show_bug.cgi?id=87881
Bug ID: 87881
Summary: gfortran.dg/inquiry_type_ref_(1.f08|3.f90) fail on
darwin
Product: gcc
Version: 9.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: dominiq at lps dot ens.fr
CC: pault at gcc dot gnu.org
Target Milestone: ---
The tests gfortran.dg/inquiry_type_ref_1.f08 and inquiry_type_ref_3.f90 fail on
darwin
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -O0 (internal compiler error)
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -O0 (test for excess errors)
UNRESOLVED: gfortran.dg/inquiry_type_ref_1.f08 -O0 compilation failed to
produce executable
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -O1 (internal compiler error)
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -O1 (test for excess errors)
UNRESOLVED: gfortran.dg/inquiry_type_ref_1.f08 -O1 compilation failed to
produce executable
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -O2 (internal compiler error)
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -O2 (test for excess errors)
UNRESOLVED: gfortran.dg/inquiry_type_ref_1.f08 -O2 compilation failed to
produce executable
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -O3 -fomit-frame-pointer
-funroll-loops -fpeel-loops -ftracer -finline-functions (internal compiler
error)
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -O3 -fomit-frame-pointer
-funroll-loops -fpeel-loops -ftracer -finline-functions (test for excess
errors)
UNRESOLVED: gfortran.dg/inquiry_type_ref_1.f08 -O3 -fomit-frame-pointer
-funroll-loops -fpeel-loops -ftracer -finline-functions compilation failed to
produce executable
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -O3 -g (internal compiler error)
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -O3 -g (test for excess errors)
UNRESOLVED: gfortran.dg/inquiry_type_ref_1.f08 -O3 -g compilation failed to
produce executable
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -Os (internal compiler error)
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -Os (test for excess errors)
UNRESOLVED: gfortran.dg/inquiry_type_ref_1.f08 -Os compilation failed to
produce executable
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -g -flto (internal compiler error)
FAIL: gfortran.dg/inquiry_type_ref_1.f08 -g -flto (test for excess errors)
UNRESOLVED: gfortran.dg/inquiry_type_ref_1.f08 -g -flto compilation failed
to produce executable
FAIL: gfortran.dg/inquiry_type_ref_3.f90 -O (test for errors, line 19)
FAIL: gfortran.dg/inquiry_type_ref_3.f90 -O (test for errors, line 20)
FAIL: gfortran.dg/inquiry_type_ref_3.f90 -O (test for errors, line 23)
FAIL: gfortran.dg/inquiry_type_ref_3.f90 -O (test for errors, line 24)
FAIL: gfortran.dg/inquiry_type_ref_3.f90 -O (test for errors, line 25)
FAIL: gfortran.dg/inquiry_type_ref_3.f90 -O (test for errors, line 26)
FAIL: gfortran.dg/inquiry_type_ref_3.f90 -O (test for errors, line 27)
FAIL: gfortran.dg/inquiry_type_ref_3.f90 -O (internal compiler error)
FAIL: gfortran.dg/inquiry_type_ref_3.f90 -O (test for excess errors)
For inquiry_type_ref_1.f08 this is caused by the commented lines in
--- /opt/gcc/_clean/gcc/testsuite/gfortran.dg/inquiry_type_ref_1.f08
2018-11-01 22:06:33.000000000 +0100
+++ inquiry_type_ref_1_db.f08 2018-11-05 10:50:07.000000000 +0100
@@ -20,10 +20,10 @@ end module
type(mytype) :: der
integer :: j
- character (len=der%str%len) :: str1
+! character (len=der%str%len) :: str1
complex, parameter :: zc = ( 99.0, 199.0 )
- REAL, parameter :: rc = zc%re
- REAL, parameter :: ic = zc%im
+! REAL, parameter :: rc = zc%re
+! REAL, parameter :: ic = zc%im
z = (2.0,4.0)
str = "abcd"
@@ -43,11 +43,11 @@ end module
if (z%im%kind .ne. kind (z)) stop 5
! Test on deferred character length.
- if (str%kind .ne. kind (str)) stop 6
+! if (str%kind .ne. kind (str)) stop 6
if (str%len .ne. len (str)) stop 7
! Check the use in specification expressions.
- if (len (der%str) .ne. LEN (str1)) stop 8
+! if (len (der%str) .ne. LEN (str1)) stop 8
if (rc .ne. real (zc)) stop 9
if (ic .ne. aimag (zc)) stop 10
and for inquiry_type_ref_3.f90
--- /opt/gcc/_clean/gcc/testsuite/gfortran.dg/inquiry_type_ref_3.f90
2018-11-01 22:06:33.000000000 +0100
+++ inquiry_type_ref_3_db.f90 2018-11-05 09:33:28.000000000 +0100
@@ -16,15 +16,15 @@ program main
integer :: i
type(t) :: s
b = "abcdefg"
- a%kind = 2 ! { dg-error "Assignment to a constant expression" }
+! a%kind = 2 ! { dg-error "Assignment to a constant expression" }
b%len = 2 ! { dg-error "Assignment to a LEN or KIND part_ref" }
- i = a%kind ! OK
+! i = a%kind ! OK
i = b%len ! OK
print *, z%re ! { dg-error "must be applied to a COMPLEX expression" }
print *, z%im ! { dg-error "must be applied to a COMPLEX expression" }
i%re = 2.0 ! { dg-error "must be applied to a COMPLEX expression" }
print *, i%len ! { dg-error "must be applied to a CHARACTER expression"
}
print *, s%kind ! { dg-error "is not a member" }
- print *, s%z%kind ! OK
+! print *, s%z%kind ! OK
print *, s%a%len ! OK
end
