gcc/testsuite/gfortran.dg/stop_2.f

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2018" }
   3
   4       implicit none
   5       logical      :: q = .false.
   6       integer(2)   :: p = 99
   7       real         :: x = 0.
   8       character(5) :: s = "stopp"
   9       stop 1, quiet=.false.
  10       stop 2, quiet=q
  11       stop 3, quiet=f(x)
  12       stop42,quiet=.false.
  13       error stop 4, quiet=.true.
  14       error stop 5 , quiet=.true.
  15       stop1_1;stop2_2;stop4_4;stop8_8
  16       stopp;stops
  17       st
  18      &op42
  19       stop, quiet=any([.false.])
  20       stop , quiet=any([f(x)])
  21       stop"stopp",quiet=any([f(x)])
  22       stop "stopp" , quiet=any([f(x)])
  23       s to ps,quiet=all([f(x)])
  24       e r r o r s t o p 4 3 , q u i e t = . t r u e .
  25       errorstop"stopp",quiet=.not.f(x)
  26       contains
  27       logical function f(x)
  28       real, intent(in) :: x
  29       f = .false.
  30       end function f
  31       end