15 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12 3! Ensure that spurious errors do not arise from FinishSpecificationPart4! checking on a nested specification part.5real, save :: x6interface7 subroutine subr(x)8 real, intent(in) :: x9 ! SAVE attribute checking should not complain at the10 ! end of this specification part about a dummy argument11 ! having the SAVE attribute.12 end subroutine13end interface14end15