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

   1 ! { dg-do compile }
   2 ! { dg-options "-fdiagnostics-format=json -Werror" }
   3
   4 #warning message
   5
   6 #if 0
   7 { dg-begin-multiline-output "" }
   8 [{"kind": "error",
   9   "message": "#warning message",
  10   "option": "-Werror=cpp",
  11   "option_url":
  12   "children": [],
  13   "column-origin": 1,
  14   "locations": [{"caret": {"file":
  15                            "line": 4,
  16                            "display-column": 2,
  17                            "byte-column": 2,
  18                            "column": 2},
  19                  "finish": {"file":
  20                             "line": 4,
  21                             "display-column": 8,
  22                             "byte-column": 8,
  23                             "column": 8}}],
  24   "escape-source": false}]
  25 { dg-end-multiline-output "" }
  26 #endif