gcc/testsuite/gfortran.dg/proc_decl_29.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 42418: PROCEDURE: Rejects interface which is both specific and generic procedure
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6
   7   interface gen
   8     procedure gen
   9   end interface
  10
  11   procedure(gen)  :: p1
  12   procedure(gen2) :: p2  ! { dg-error "may not be generic" }
  13   procedure(sf)   :: p3  ! { dg-error "may not be a statement function" }
  14   procedure(char) :: p4
  15
  16   interface gen2
  17     procedure char
  18   end interface
  19
  20   sf(x) = x**2  ! { dg-warning "Obsolescent feature" }
  21
  22 contains
  23
  24   subroutine gen
  25   end subroutine
  26
  27   subroutine char
  28   end subroutine
  29
  30 end