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