diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/initialization_11.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/initialization_11.f90 | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/initialization_11.f90 b/gcc/testsuite/gfortran.dg/initialization_11.f90 new file mode 100644 index 000000000..a9acbec22 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/initialization_11.f90 @@ -0,0 +1,20 @@ +! { dg-do run } +! PR fortran/32903 +! +program test + implicit none + type data_type + integer :: i=2 + end type data_type + type(data_type) :: d + d%i = 4 + call set(d) + if(d%i /= 2) then + print *, 'Expect: 2, got: ', d%i + call abort() + end if +contains + subroutine set(x1) + type(data_type),intent(out):: x1 + end subroutine set +end program test |