flang/test/Semantics/resolve101.f90

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