PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays

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

! { dg-do compile }
! PR 60751
! Contributed by Walter Spector <w6ws@earthlink.net>
program extracomma
  implicit none

  write (*,*), 1, 2, 3 ! { dg-warning "Legacy Extension: Comma before i/o item list" }
end program