3 ! Test the fix for PR80120
5 ! Contributed by Marco Restelli <mrestelli@gmail.com>
11 character(len
=25) :: text(2)
18 associate( c
=> x
%text
)
19 if (c(1)(:maxval(len_trim(c
))) .ne
. trim (x
%text(1))) STOP 1
20 if (c(2)(:maxval(len_trim(c
))) .ne
. trim (x
%text(2))) STOP 2