Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/diagnostic-format-json-3.F90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-fdiagnostics-format=json -Werror" } #warning message ! Use dg-regexp to consume the JSON output starting with ! the innermost values, and working outwards. ! We can't rely on any ordering of the keys. ! { dg-regexp "\"kind\": \"error\"" } ! { dg-regexp "\"message\": \"#warning message\"" } ! { dg-regexp "\"option\": \"-Werror=cpp\"" } ! { dg-regexp "\"option_url\": \"\[^\n\r\"\]*#index-Wcpp\"" } ! { dg-regexp "\"caret\": \{" } ! { dg-regexp "\"file\": \"\[^\n\r\"\]*diagnostic-format-json-3.F90\"" } ! { dg-regexp "\"line\": 4" } ! { dg-regexp "\"column\": 2" } ! { dg-regexp "\"finish\": \{" } ! { dg-regexp "\"file\": \"\[^\n\r\"\]*diagnostic-format-json-3.F90\"" } ! { dg-regexp "\"line\": 4" } ! { dg-regexp "\"column\": 8" } ! { dg-regexp "\"locations\": \[\[\{\}, \]*\]" } ! { dg-regexp "\"children\": \[\[\]\[\]\]" } ! { dg-regexp "\[\[\{\}, \]*\]" }