5 ! Additionally, VALUE no INTENT is required (and only "intent(in)" allowed)
8 elemental
subroutine foo(x
, y
, z
)
9 integer, intent(inout
) :: x
11 integer, VALUE
, intent(in
) :: z
15 impure elemental
subroutine foo2(x
, y
, z
) ! { dg-error "Argument 'x' of elemental procedure 'foo2' at .1. must have its INTENT specified or have the VALUE attribute" }
22 subroutine foo3(x
, y
, z
)
23 integer, VALUE
, intent(in
) :: x
24 integer, VALUE
, intent(inout
) :: y
! { dg-error "VALUE attribute conflicts with INTENT.INOUT. attribute" }
25 integer, VALUE
, intent(out
) :: z
! { dg-error "VALUE attribute conflicts with INTENT.OUT. attribute" }