Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/associate3.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! PR fortran/71717 ! { dg-do run } type t real, allocatable :: f(:) end type type (t) :: v integer :: i, j allocate (v%f(4)) v%f = 19. i = 5 associate (u => v, k => i) !$omp parallel do do j = 1, 4 u%f(j) = 21. if (j.eq.1) k = 7 end do end associate if (any (v%f(:).ne.21.) .or. i.ne.7) stop 1 end