blob: b1c259e286b0ce244da2ce1a576b680dd3dd21c9 [file] [log] [blame]
! RUN: %python %S/ %s %flang_fc1
! Ensure that spurious errors do not arise from FinishSpecificationPart
! checking on a nested specification part.
real, save :: x
subroutine subr(x)
real, intent(in) :: x
! SAVE attribute checking should not complain at the
! end of this specification part about a dummy argument
! having the SAVE attribute.
end subroutine
end interface