gcc/testsuite/gfortran.dg/statement_function_4.f90


1
2
3
4
5
6
7
8
9
10

! { dg-do compile }
! PR fortran/69604
! Contributed by G.Steinmetz

program p
  x(n) = 1 + n(2.0) ! { dg-error "Invalid use of statement function argument" }
  y(k) = k()        ! { dg-error "Invalid use of statement function argument" }
  z(m) = m          ! { dg-warning "Statement function" }
  print *, x(n)
end