gcc/testsuite/gfortran.dg/stop_4.f90

   1 ! { dg-do run }
   2 ! { dg-additional-options "-fdump-tree-original -std=f2018" }
   3 ! Check that the QUIET specifier to shut up a STOP statement is passed properly
   4
   5 program p
   6   logical(1) :: q = .true.  ! using kind=1 to simplify scanning of tree dump
   7   stop 0, quiet=q
   8   stop 1, quiet=.true.
   9   stop 2                    ! the "noisy" default
  10 end program p
  11
  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" } }