gcc/testsuite/gfortran.dg/diagnostic-format-json-pr105916.F90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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