mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
34 lines
807 B
Fortran
34 lines
807 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR fortran/45077
|
|
!
|
|
! Contributed by Dominique d'Humieres, based on a test
|
|
! case of Juergen Reuter.
|
|
!
|
|
|
|
module iso_red
|
|
type, public :: varying_string
|
|
character(LEN=1), dimension(:), allocatable :: chars
|
|
end type varying_string
|
|
end module iso_red
|
|
|
|
module ifiles
|
|
use iso_red, string_t => varying_string
|
|
contains
|
|
function line_get_string_advance (line) result (string)
|
|
type(string_t) :: string
|
|
character :: line
|
|
end function line_get_string_advance
|
|
end module ifiles
|
|
|
|
module syntax_rules
|
|
use iso_red, string_t => varying_string
|
|
use ifiles, only: line_get_string_advance
|
|
contains
|
|
subroutine syntax_init_from_ifile ()
|
|
type(string_t) :: string
|
|
string = line_get_string_advance ("")
|
|
end subroutine syntax_init_from_ifile
|
|
end module syntax_rules
|
|
end
|