+2005-06-18 Steven G. Kargl <kargls@comcast.net>
+
+ PR fortran/19926
+ * gfortran.dg/pr19926.f90: New test.
+
2005-06-19 Dorit Nuzman <dorit@il.ibm.com>
* lib/target-supports.exp (check_effective_target_vect_reduction): New.
--- /dev/null
+! { dg-do run }
+module b
+ type cat
+ integer :: i = 0
+ end type cat
+end module b
+
+program a
+ use b
+ type(cat) z
+ integer :: i = 0, j(4,3,2) = 0
+ call string_comp(i)
+ if (i /= 3) call abort
+ call string_comp(z%i)
+ if (z%i /= 3) call abort
+ call string_comp(j(1,2,1))
+ if (j(1,2,1) /= 3) call abort
+end program a
+
+subroutine string_comp(i)
+ integer, parameter :: map(0:50) = 3
+ integer :: i
+ i = map(42)
+end subroutine string_comp
+