gcc/testsuite/gfortran.dg/assumed_size_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 54189: ICE (segfault) with invalid assumed-size dummy
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6
   7   implicit none
   8   procedure(g), pointer :: x  ! { dg-error "must be a dummy argument" }
   9   x => g
  10
  11 contains
  12
  13   function g()        ! { dg-error "must be a dummy argument" }
  14     integer :: g(*)
  15   end function
  16
  17 end