lto: Remove random_seed from section name.

[official-gcc.git] / gcc / testsuite / gfortran.dg / statement_function_4.f90

! { 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