blob: bf22a86867bc38328ccc3f7fed6e9971572cbdb4 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fdiagnostics-format=json-stderr -fmax-errors=1 -Wfatal-errors" }
program main
implicit none
print*, "Hello World!"
end program main
! We expect an empty array as the JSON output.
#if 0
{ dg-begin-multiline-output "" }
[]
{ dg-end-multiline-output "" }
#endif