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/] [import7.f90] - Blame information for rev 414

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

Line No. Rev Author Line
1 302 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.