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

Subversion Repositories openrisc

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

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

Line No. Rev Author Line
1 694 jeremybenn 
! { dg-do compile }
2 
!
3 
! PR39688: IMPORT of derived type fails
4 
!
5 
! Contributed by Bob Corbett
6 
 
7 
       MODULE MOD
8 
         TYPE T1
9 
           SEQUENCE
10 
           TYPE(T2), POINTER :: P
11 
         END TYPE
12 
         TYPE T2
13 
           SEQUENCE
14 
           INTEGER I
15 
         END TYPE
16 
       END
17 
 
18 
       PROGRAM MAIN
19 
         USE MOD, T3 => T1, T4 => T2
20 
         TYPE T1
21 
           SEQUENCE
22 
           TYPE(T2), POINTER :: P
23 
         END TYPE
24 
         INTERFACE SUBR
25 
           SUBROUTINE SUBR1(X)
26 
             IMPORT T3
27 
             TYPE(T3) X
28 
           END SUBROUTINE
29 
           SUBROUTINE SUBR2(X)
30 
             IMPORT T1
31 
             TYPE(T1) X
32 
           END SUBROUTINE
33 
         END INTERFACE
34 
         TYPE T2
35 
           SEQUENCE
36 
           REAL X
37 
         END TYPE
38 
       END
39 
 
40 
       SUBROUTINE SUBR1(X)
41 
         USE MOD
42 
         TYPE(T1) X
43 
       END
44 
 
45 
       SUBROUTINE SUBR2(X)
46 
         TYPE T1
47 
           SEQUENCE
48 
           TYPE(T2), POINTER :: P
49 
         END TYPE
50 
         TYPE T2
51 
           SEQUENCE
52 
           REAL X
53 
         END TYPE
54 
         TYPE(T1) X
55 
       END
56 
 
57 
! { dg-final { cleanup-modules "mod" } }
58 
 

powered by: WebSVN 2.1.0

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