32 lines
826 B
Fortran
32 lines
826 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-std=f2018" }
|
|
|
|
implicit none
|
|
logical :: q = .false.
|
|
integer(2) :: p = 99
|
|
real :: x = 0.
|
|
character(5) :: s = "stopp"
|
|
stop 1, quiet=.false.
|
|
stop 2, quiet=q
|
|
stop 3, quiet=f(x)
|
|
stop42,quiet=.false.
|
|
error stop 4, quiet=.true.
|
|
error stop 5 , quiet=.true.
|
|
stop1_1;stop2_2;stop4_4;stop8_8
|
|
stopp;stops
|
|
st
|
|
&op42
|
|
stop, quiet=any([.false.])
|
|
stop , quiet=any([f(x)])
|
|
stop"stopp",quiet=any([f(x)])
|
|
stop "stopp" , quiet=any([f(x)])
|
|
s to ps,quiet=all([f(x)])
|
|
e r r o r s t o p 4 3 , q u i e t = . t r u e .
|
|
errorstop"stopp",quiet=.not.f(x)
|
|
contains
|
|
logical function f(x)
|
|
real, intent(in) :: x
|
|
f = .false.
|
|
end function f
|
|
end
|