Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
pr86470.f90
blob: 7e04437548c9cc879cf43f51d4753aff4eab3aea [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
86470
-
ICE
with
OpenMP
,
class
(*)
program p
implicit
none
class
(*),
allocatable
::
val
!
$OMP PARALLEL
private
(
val
)
allocate
(
integer
::
val
)
val
=
1
deallocate
(
val
)
!
$OMP
END
PARALLEL
end