5 pure pure
subroutine a1(b
) ! { dg-error "Duplicate PURE attribute specified" }
6 real, intent(in
) :: b
! { dg-error "Unexpected data declaration statement" }
7 end subroutine a1
! { dg-error "Expecting END MODULE" }
12 elemental elemental
subroutine a2(b
) ! { dg-error "Duplicate ELEMENTAL attribute" }
13 real, intent(in
) :: b
! { dg-error "Unexpected data declaration statement" }
14 end subroutine a2
! { dg-error "Expecting END MODULE" }
19 recursive recursive subroutine a3(b
) ! { dg-error "Duplicate RECURSIVE attribute" }
20 real, intent(in
) :: b
! { dg-error "Unexpected data declaration statement" }
21 end subroutine a3
! { dg-error "Expecting END MODULE" }
23 ! { dg-final { cleanup-modules "m1 m2 m3" } }