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 ! Use dg-regexp to consume the JSON output starting with
   7 ! the innermost values, and working outwards.
   8 ! We can't rely on any ordering of the keys.
   9
  10 ! { dg-regexp "\"kind\": \"error\"" }
  11 ! { dg-regexp "\"message\": \"#warning message\"" }
  12 ! { dg-regexp "\"option\": \"-Werror=cpp\"" }
  13
  14 ! { dg-regexp "\"caret\": \{" }
  15 ! { dg-regexp "\"file\": \"\[^\n\r\"\]*diagnostic-format-json-3.F90\"" }
  16 ! { dg-regexp "\"line\": 4" }
  17 ! { dg-regexp "\"column\": 2" }
  18
  19 ! { dg-regexp "\"finish\": \{" }
  20 ! { dg-regexp "\"file\": \"\[^\n\r\"\]*diagnostic-format-json-3.F90\"" }
  21 ! { dg-regexp "\"line\": 4" }
  22 ! { dg-regexp "\"column\": 8" }
  23
  24 ! { dg-regexp "\"locations\": \[\[\{\}, \]*\]" }
  25 ! { dg-regexp "\"children\": \[\[\]\[\]\]" }
  26 ! { dg-regexp "\[\[\{\}, \]*\]" }