mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
11 lines
300 B
Fortran
11 lines
300 B
Fortran
! { dg-do compile }
|
|
! Test the fix for the problem described in PR45077 comments #4 and #5.
|
|
!
|
|
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
|
|
!
|
|
module iso_red
|
|
type, public :: varying_string
|
|
character(LEN=1), dimension(:), allocatable :: chars
|
|
end type varying_string
|
|
end module iso_red
|