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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [use_only_4.f90] - Blame information for rev 316

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do compile }
2
! Test the fix for PR41062, in which an ICE would ensue because
3
! of confusion between the two 'one's in the creation of module
4
! debug info.
5
!
6
! Reported by Norman S. Clerman 
7
! Reduced testcase by Tobias Burnus 
8
!
9
module m1
10
   interface one  ! GENERIC "one"
11
     module procedure one1
12
   end interface
13
contains
14
  subroutine one1()
15
    call abort
16
  end subroutine one1
17
end module m1
18
 
19
module m2
20
use m1, only : one  ! USE generic "one"
21
contains
22
  subroutine two()
23
    call one()  ! Call internal "one"
24
  contains
25
    subroutine one() ! Internal "one"
26
      print *, "m2"
27
    end subroutine one
28
  end subroutine two
29
end module m2
30
 
31
  use m2
32
  call two
33
end
34
! { dg-final { cleanup-modules "m1 m2" } }

powered by: WebSVN 2.1.0

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