gcc/testsuite/gfortran.dg/elemental_args_check_4.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 50547: dummy procedure argument of PURE shall be PURE
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7 elemental function fun (sub)
   8   interface
   9     pure subroutine sub  ! { dg-error "not allowed in elemental procedure" }
  10     end subroutine
  11   end interface
  12 end function