2 ! { dg-additional-options "-fdump-tree-original -std=f2018" }
3 ! Check that the QUIET specifier to shut up a STOP statement is passed properly
6 logical(1) :: q
= .true
. ! using kind=1 to simplify scanning of tree dump
9 stop 2 ! the "noisy" default
12 ! { dg-final { scan-tree-dump "_gfortran_stop_numeric \\(0, q\\)" "original" } }
13 ! { dg-final { scan-tree-dump "_gfortran_stop_numeric \\(1, 1\\)" "original" } }
14 ! { dg-final { scan-tree-dump "_gfortran_stop_numeric \\(2, 0\\)" "original" } }