| !{ dg-do run } | |
| ! | |
| ! Check assignment works for derived types to memory referenced by pointer | |
| ! Contributed by G. Steinmetz <gscfq@t-online.de> | |
| program pr103391 | |
| type t | |
| character(1) :: c | |
| end type | |
| type t2 | |
| type(t), pointer :: a(:) | |
| end type | |
| type(t), target :: arr(2) | |
| type(t2) :: r | |
| arr = [t('a'), t('b')] | |
| r = f([arr]) | |
| if (any(r%a(:)%c /= ['a', 'b'])) stop 1 | |
| contains | |
| function f(x) | |
| class(t), intent(in), target :: x(:) | |
| type(t2) :: f | |
| allocate(f%a(size(x,1))) | |
| f%a = x | |
| end | |
| end |