tree-optimization/113385 - wrong loop father with early exit vectorization

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

! { dg-do compile }

function ifoo()
  parameter (n = 50)
  integer n
  ifoo = n
end