gcc/testsuite/gfortran.dg/pr69603.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fimplicit-none" }
   3 ! PR fortran/69603 - segfault with -fimplicit-none and proc_ptr_comp_24.f90
   4 ! Based on reduced testcase by Dominique d'Humieres
   5 PROGRAM prog
   6   implicit none
   7   TYPE object
   8      PROCEDURE(), POINTER, NOPASS :: f
   9   END TYPE object
  10   TYPE (object) :: o1
  11   CALL set_func(o1%f)
  12 CONTAINS
  13   SUBROUTINE set_func(f)
  14     PROCEDURE(), POINTER :: f
  15   END SUBROUTINE set_func
  16 END PROGRAM prog