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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! Checks the fix for PR34672, in which generic interfaces were not
3
! being written correctly, when renamed.
4
!
5
! Contributed by Jos de Kloe 
6
!
7
MODULE MyMod1
8
  integer, parameter :: i2_ = Selected_Int_Kind(4)
9
END Module MyMod1
10
 
11
module MyMod2
12
  INTERFACE write_int
13
     module procedure write_int_local
14
  END INTERFACE
15
contains
16
  subroutine write_int_local(value)
17
    integer, intent(in)  :: value
18
    print *,value
19
  end subroutine write_int_local
20
end module MyMod2
21
 
22
module MyMod3
23
  USE MyMod2, only: write_MyInt   => write_int
24
  USE MyMod1, only: i2_
25
end module MyMod3
26
 
27
module MyMod4
28
  USE MyMod3, only: write_MyInt
29
end module MYMOD4
30
! { dg-final { cleanup-modules "mymod1 mymod2 mymod3 mymod4" } }

powered by: WebSVN 2.1.0

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