OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [whole_file_29.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! Test the fix for the problem described in PR45077 comments #4 and #5.
3
! Note that the module file from whole_file_28.f90, 'iso_red', is
4
! needed for this test.
5
!
6
! Contributed by Tobias Burnus  
7
!
8
module ifiles
9
  use iso_red, string_t => varying_string
10
contains
11
  function line_get_string_advance (line) result (string)
12
    type(string_t) :: string
13
    character :: line
14
  end function line_get_string_advance
15
end module ifiles
16
 
17
module syntax_rules
18
  use iso_red, string_t => varying_string
19
  use ifiles, only: line_get_string_advance
20
contains
21
  subroutine syntax_init_from_ifile ()
22
    type(string_t) :: string
23
       string = line_get_string_advance ("")
24
  end subroutine syntax_init_from_ifile
25
end module syntax_rules
26
end
27
! { dg-final { cleanup-modules "syntax_rules ifiles iso_red" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.