[Bug fortran/87881] New: gfortran.dg/inquiry_type_ref_(1.f08|3.f90) fail on darwin

[dominiq at lps dot ens.fr]

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