gcc/testsuite/gfortran.dg/stop_4.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { dg-do run }
! { dg-additional-options "-fdump-tree-original -std=f2018" }
! Check that the QUIET specifier to shut up a STOP statement is passed properly

program p
  logical(1) :: q = .true.  ! using kind=1 to simplify scanning of tree dump
  stop 0, quiet=q
  stop 1, quiet=.true.
  stop 2                    ! the "noisy" default
end program p

! { dg-final { scan-tree-dump "_gfortran_stop_numeric \\(0, q\\)" "original" } }
! { dg-final { scan-tree-dump "_gfortran_stop_numeric \\(1, 1\\)" "original" } }
! { dg-final { scan-tree-dump "_gfortran_stop_numeric \\(2, 0\\)" "original" } }