1*94d47e63SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror 2*94d47e63SPeter Klausler! A nasty case of a weird order of declarations - a symbol may appear 3*94d47e63SPeter Klausler! as an actual argument to a specification function before its rank 4*94d47e63SPeter Klausler! has been declared. 5*94d47e63SPeter Klauslerprogram main 6*94d47e63SPeter Klausler interface kind 7*94d47e63SPeter Klausler pure integer function mykind(x) 8*94d47e63SPeter Klausler real, intent(in) :: x(:) 9*94d47e63SPeter Klausler end 10*94d47e63SPeter Klausler end interface 11*94d47e63SPeter Klausler real a, b 12*94d47e63SPeter Klausler integer, parameter :: ak = kind(a) 13*94d47e63SPeter Klausler integer, parameter :: br = rank(b) 14*94d47e63SPeter Klausler !WARNING: 'a' appeared earlier as a scalar actual argument to a specification function 15*94d47e63SPeter Klausler dimension a(1) 16*94d47e63SPeter Klausler !WARNING: 'b' appeared earlier as a scalar actual argument to a specification function 17*94d47e63SPeter Klausler dimension b(1) 18*94d47e63SPeter Klauslerend 19