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