Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/allocatable7.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do run } integer, allocatable :: a(:) logical :: l l = .false. !$omp parallel firstprivate (a) reduction (.or.:l) l = allocated (a) allocate (a(10)) l = l .or. .not. allocated (a) a = 10 if (any (a .ne. 10)) l = .true. deallocate (a) l = l .or. allocated (a) !$omp end parallel if (l) stop 1 end