xref: /llvm-project/flang/test/Semantics/procinterface05.f90 (revision c9f94baca5d603392ed1739747dd0f9b2bd3adb3)
1*c9f94bacSPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1
2*c9f94bacSPeter Klauslerinterface a1
3*c9f94bacSPeter Klausler  subroutine s1
4*c9f94bacSPeter Klausler    interface a2
5*c9f94bacSPeter Klausler      subroutine s2
6*c9f94bacSPeter Klausler        !ERROR: Invalid specification expression: reference to local entity 'k'
7*c9f94bacSPeter Klausler        real x(k)
8*c9f94bacSPeter Klausler      end subroutine
9*c9f94bacSPeter Klausler    end interface
10*c9f94bacSPeter Klausler    !ERROR: Invalid specification expression: reference to local entity 'k'
11*c9f94bacSPeter Klausler    real y(k)
12*c9f94bacSPeter Klausler  end subroutine
13*c9f94bacSPeter Klauslerend interface
14*c9f94bacSPeter Klauslerend
15