RISC-V: Regenerate opt urls.
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr113503_2.f90
blob9dfb245fc432190634df34170a0797131e1d3deb
1 ! PR fortran/113503
2 ! { dg-do compile }
4 program pr113503
5 implicit none
6 type :: T
7 character(len=:), allocatable :: u
8 end type
9 character(len=20) :: us(1) = 'foo'
10 type(T) :: x
11 x = T(u = us(1))
12 end