gcc/testsuite/gfortran.dg/interface_41.f90

   1 ! { dg-do compile }
   2 ! PR fortran/85001
   3 ! Contributed by Gerhard Steinmetz.
   4 program p
   5    type t
   6    end type
   7    call s
   8 contains
   9    real function f(x)
  10       class(t) :: x
  11       dimension :: x(:)
  12       f = 1.0
  13    end
  14    subroutine s
  15       type(t) :: x(2)
  16       real :: z
  17       z = f(x)     ! { dg-error "Rank mismatch in argument" }
  18    end
  19 end