1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
! { dg-do compile }
! { dg-options "-std=f2018" }
implicit none
logical :: q = .false.
integer(2) :: p = 99
real :: x = 0.
character(5) :: s = "stopp"
print *, "Hello"
stop 1, quiet=.false.
stop 2, quiet=q
stop 3, quiet=f(x)
stop; stop!
stop ;stop 4!
stop 5; stop 6
stop 7 ;stop 8
stop 1_1; stop 2_2; stop 4_4; stop 8_8
stop&!
&;stop;&!
stop&!
s&
; stop "x";&!
; st&!
&op&!
p
stop s
if(f(x))then;stop 9,quiet=.false.;else;stop 10;endif
error stop 4, quiet=.true.
error stop 5 , quiet=.true.
error stop s, quiet=.true.
stop "last " // s, quiet=.false._2
stop, quiet=any([.false.])
stop , quiet=any([f(x)])
stop "stopp" , quiet=any([f(x)])
stop s, quiet=all([f(x)])
stop42, quiet=.false. ! { dg-error "Blank required" }
stop"stopp" , quiet=any([f(x)]) ! { dg-error "Blank required" }
stop 8, quiet=([f(x)]) ! { dg-error "must be a scalar LOGICAL" }
contains
logical function f(x)
real, intent(in) :: x
f = .false.
end function f
end
|