blob: 6fcb8a990fd62c2d7f7600a389d8bb1d1c567258 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { dg-do run }
!
! Test the fix for PR80120
!
! Contributed by Marco Restelli <mrestelli@gmail.com>
!
program p
implicit none
type :: t
character(len=25) :: text(2)
end type t
type(t) :: x
x%text(1) = "ABC"
x%text(2) = "defgh"
associate( c => x%text )
if (c(1)(:maxval(len_trim(c))) .ne. trim (x%text(1))) call abort
if (c(2)(:maxval(len_trim(c))) .ne. trim (x%text(2))) call abort
end associate
end program p
|