flang/test/Semantics/resolve101.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2
   3 ! Ensure that spurious errors do not arise from FinishSpecificationPart
   4 ! checking on a nested specification part.
   5 real, save :: x
   6 interface
   7   subroutine subr(x)
   8     real, intent(in) :: x
   9     ! SAVE attribute checking should not complain at the
  10     ! end of this specification part about a dummy argument
  11     ! having the SAVE attribute.
  12   end subroutine
  13 end interface
  14 end