mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
24 lines
424 B
Fortran
24 lines
424 B
Fortran
! { 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))) STOP 1
|
|
if (c(2)(:maxval(len_trim(c))) .ne. trim (x%text(2))) STOP 2
|
|
end associate
|
|
|
|
end program p
|