gcc/testsuite/gfortran.dg/typebound_proc_30.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 59143: [OOP] Bogus warning with array-valued type-bound procedure
   4 !
   5 ! Contributed by Jürgen Reuter <juergen.reuter@desy.de>
   6
   7 module phs_single
   8
   9   type :: phs_single_t
  10    contains
  11      procedure, nopass :: d1, d2
  12   end type
  13
  14 contains
  15
  16   subroutine evaluate (phs)
  17     class(phs_single_t) :: phs
  18     call func1 (phs%d1 ())
  19     call func1 (phs%d2 (2))
  20   end subroutine
  21
  22   subroutine func1 (p)
  23     real :: p(2)
  24   end subroutine
  25
  26   function d1 ()
  27     real :: d1(2)
  28     d1 = 1.
  29   end function
  30
  31   function d2 (n)
  32     real :: d2(n)
  33     d2 = 1.
  34   end function
  35
  36 end module
  37
  38 ! { dg-final { cleanup-modules "phs_single" } }