gcc/testsuite/gfortran.dg/proc_decl_12.f90

   1 ! { dg-do run }
   2 !
   3 ! This tests the (partial) fix for PR35830, i.e. handling array arguments
   4 ! with the PROCEDURE statement.
   5 !
   6 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   7
   8 module m
   9 contains
  10   subroutine one(a)
  11       integer a(1:3)
  12       if (any(a /= [1,2,3])) call abort()
  13   end subroutine one
  14 end module m
  15
  16 program test
  17   use m
  18   implicit none
  19   call foo(one)
  20 contains
  21   subroutine foo(f)
  22     procedure(one) :: f
  23     call f([1,2,3])
  24   end subroutine foo
  25 end program test