| ! { dg-do run } | |
| ! PR fortran/51434 | |
| module foo | |
| implicit none | |
| integer, parameter :: n = 5 | |
| character(len=1), parameter :: s(n) = 'a' | |
| type :: a | |
| integer :: m = n | |
| character(len=1):: t(n) = transfer('abcde ', s) | |
| end type a | |
| end module foo | |
| program bar | |
| use foo | |
| implicit none | |
| type(a) c | |
| if (c%m /= n) stop 1 | |
| if (any(c%t /= ['a', 'b', 'c', 'd', 'e'])) stop 2 | |
| end program bar |