Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/whole_file_29.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-compile-aux-modules "whole_file_28.f90" } ! Test the fix for the problem described in PR45077 comments #4 and #5. ! ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> ! 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 ! { dg-final { cleanup-modules "iso_red" } }