| ! { dg-do run } |
| ! |
| ! Test fix for PR80945, in which the character length was fixed at zero. |
| ! |
| ! Contributed by Nicolas Koenig <koenigni@gcc.gnu.org> |
| ! |
| program main |
| implicit none |
| integer:: i |
| integer, parameter:: N = 10 |
| character(20) :: buffer |
| character(len=:), dimension(:),allocatable:: ca |
| character(len=:), dimension(:,:),allocatable:: cb |
| allocate(character(len=N) :: ca(3)) |
| ca(1) = "foo" |
| ca(2) = "bar" |
| ca(3) = "xyzzy" |
| write (buffer, '(3A5)') ca(1:3) |
| if (trim (buffer) .ne. "foo bar xyzzy") stop 1 |
| end program |
