mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
13 lines
298 B
Fortran
13 lines
298 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR 50547: dummy procedure argument of PURE shall be PURE
|
|
!
|
|
! Contributed by Janus Weil <janus@gcc.gnu.org>
|
|
|
|
elemental function fun (sub)
|
|
interface
|
|
pure subroutine sub ! { dg-error "not allowed in elemental procedure" }
|
|
end subroutine
|
|
end interface
|
|
end function
|