gcc/testsuite/gfortran.dg/proc_decl_21.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/39414: PROCEDURE statement double declaration bug
   4 !
   5 ! Discovered by Paul Thomas <pault@gcc.gnu.org>
   6 ! Modified by Janus Weil <janus@gcc.gnu.org>
   7
   8
   9 ! forbidden
  10
  11 procedure(integer) :: a
  12 integer :: a   ! { dg-error "already has basic type of" }
  13
  14 integer :: b
  15 procedure(integer) :: b   ! { dg-error "already has basic type of" }
  16
  17 procedure(iabs) :: c
  18 integer :: c   ! { dg-error "may not have basic type of" }
  19
  20 integer :: d
  21 procedure(iabs) :: d   ! { dg-error "already has basic type of" }
  22
  23 ! allowed
  24
  25 integer :: e
  26 procedure() :: e
  27
  28 procedure() :: f
  29 integer :: f
  30
  31 end
  32