PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / goacc / branch.f95
blob7eed3e209db11a6dbcd67fc899f9c8bad0533774
1 ! { dg-do compile }
3 program test
4 implicit none
6 integer :: i
8 if (.true.) then
9 !$acc parallel
10 end if ! { dg-error "Unexpected" }
11 !$acc end parallel
12 end if
14 if (.true.) then
15 !$acc kernels
16 end if ! { dg-error "Unexpected" }
17 !$acc end kernels
18 end if
20 !$acc parallel
21 if (.true.) then
22 !$acc end parallel ! { dg-error "Unexpected" }
23 end if
24 !$acc end parallel
26 !$acc kernels
27 if (.true.) then
28 !$acc end kernels ! { dg-error "Unexpected" }
29 end if
30 !$acc end kernels
32 !$acc parallel
33 if (.true.) then
34 end if
35 !$acc end parallel
37 !$acc kernels
38 if (.true.) then
39 end if
40 !$acc end kernels
42 if (.true.) then
43 !$acc parallel
44 !$acc end parallel
45 end if
47 if (.true.) then
48 !$acc kernels
49 !$acc end kernels
50 end if
53 end program test