* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile

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

! { dg-do compile }
program pr19936_2
  integer i
  print *,(/(i,i=1a,4)/) ! { dg-error "Syntax error in iterator" }
end program pr19936_2