blob: 22e878630b8b373f3fba49fb490f3dd80c93e03f (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do compile }
! PR fortran/107995
! Contributed by G.Steinmetz
program p
implicit none
integer :: n ! { dg-error "Self-referential argument" }
n(n) = 1 ! { dg-warning "Statement function" }
print *, n(n) ! { dg-error "Statement function" }
end
|