gcc/testsuite/gfortran.dg/pr78719_2.f90

   1 ! { dg-do compile }
   2 ! PR fortran/78719
   3 ! Code contributed by Gerhard Steinmetz
   4 program p
   5
   6    type t
   7       integer :: n
   8    end type
   9
  10    real :: g
  11
  12    abstract interface
  13       subroutine h
  14       end
  15    end interface
  16
  17    procedure(h), pointer :: s
  18
  19    s => f
  20    call s
  21    s => g            ! { dg-error "Invalid procedure pointer" }
  22    call s
  23
  24    contains
  25
  26       subroutine f
  27       end
  28
  29       subroutine g   ! { dg-error "has an explicit interface" }
  30       end
  31
  32 end program p        ! { dg-error "Syntax error" }