gcc/testsuite/gfortran.dg/typebound_call_8.f03

   1 ! { dg-do compile }
   2
   3 ! PR fortran/37429
   4 ! This used to ICE, check that is fixed.
   5
   6 MODULE touching
   7   IMPLICIT NONE
   8
   9   TYPE :: EqnSys33
  10   CONTAINS
  11     PROCEDURE, NOPASS :: solve1
  12   END TYPE EqnSys33
  13
  14 CONTAINS
  15
  16   FUNCTION solve1 ()
  17     IMPLICIT NONE
  18     REAL :: solve1(3)
  19     solve1 = 0.0
  20   END FUNCTION solve1
  21
  22   SUBROUTINE fill_gap ()
  23     IMPLICIT NONE
  24     TYPE(EqnSys33) :: sys
  25     REAL :: res
  26
  27     res = sys%solve1 () ! { dg-error "Incompatible rank" }
  28   END SUBROUTINE fill_gap
  29
  30 END MODULE touching
  31
  32 ! { dg-final { cleanup-modules "touching" } }