Fortran/gfortran/regression/comma_IO_extension_1.f90 - llvm-test-suite - Git at Google

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