1! PR fortran/59488
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4
5 implicit none
6 type t
7 integer :: s1, s2, s3
8 end type
9 integer :: r
10 type(t), parameter :: u = t(1, 2, 3)
11
12 !$omp parallel do default(none)
13 do r = 1, 2
14 print *, u
15 end do
16end
17