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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [typebound_generic_1.f03] - Blame information for rev 581

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


! { dg-do compile }
 
! Type-bound procedures
! Compiling and errors with GENERIC binding declarations.
! Bindings with NOPASS.
 
MODULE m
  IMPLICIT NONE
 
  TYPE somet
  CONTAINS
    PROCEDURE, NOPASS :: p1 => intf1
    PROCEDURE, NOPASS :: p1a => intf1a
    PROCEDURE, NOPASS :: p2 => intf2
    PROCEDURE, NOPASS :: p3 => intf3
    PROCEDURE, NOPASS :: subr
 
    GENERIC :: gen1 => p1a ! { dg-error "are ambiguous" }
 
    GENERIC, PUBLIC :: gen1 => p1, p2
    GENERIC :: gen1 => p3 ! Implicitelly PUBLIC.
    GENERIC, PRIVATE :: gen2 => p1
 
    GENERIC :: gen2 => p2 ! { dg-error "same access" }
    GENERIC :: gen1 => p1 ! { dg-error "already defined as specific binding" }
    GENERIC, PASS :: gen3 => p1 ! { dg-error "Expected access-specifier" }
    GENERIC :: p1 => p1 ! { dg-error "already a non-generic procedure" }
    PROCEDURE, NOPASS :: gen1 => intf1 ! { dg-error "already a procedure" }
    GENERIC :: gen3 => ! { dg-error "specific binding" }
    GENERIC :: gen4 => p1 x ! { dg-error "Junk after" }
    GENERIC :: gen5 => p_notthere ! { dg-error "Undefined specific binding" }
    GENERIC :: gen6 => gen1 ! { dg-error "must target a specific binding" }
 
    GENERIC :: gensubr => p2 ! { dg-error "mixed FUNCTION/SUBROUTINE" }
    GENERIC :: gensubr => subr
 
  END TYPE somet
 
  TYPE supert
  CONTAINS
    PROCEDURE, NOPASS :: p1 => intf1
    PROCEDURE, NOPASS :: p1a => intf1a
    PROCEDURE, NOPASS :: p2 => intf2
    PROCEDURE, NOPASS :: p3 => intf3
    PROCEDURE, NOPASS :: sub1 => subr
 
    GENERIC :: gen1 => p1, p2
    GENERIC :: gen1 => p3
    GENERIC :: gen2 => p1
    GENERIC :: gensub => sub1
  END TYPE supert
 
  TYPE, EXTENDS(supert) :: t
  CONTAINS
    GENERIC :: gen2 => p1a ! { dg-error "are ambiguous" }
    GENERIC :: gen2 => p3
    GENERIC :: p1 => p2 ! { dg-error "can't overwrite specific" }
    GENERIC :: gensub => p2 ! { dg-error "mixed FUNCTION/SUBROUTINE" }
 
    PROCEDURE, NOPASS :: gen1 => intf1 ! { dg-error "Can't overwrite GENERIC" }
  END TYPE t
 
CONTAINS
 
  INTEGER FUNCTION intf1 (a, b)
    IMPLICIT NONE
    INTEGER :: a, b
    intf1 = 42
  END FUNCTION intf1
 
  INTEGER FUNCTION intf1a (a, b)
    IMPLICIT NONE
    INTEGER :: a, b
    intf1a = 42
  END FUNCTION intf1a
 
  INTEGER FUNCTION intf2 (a, b)
    IMPLICIT NONE
    REAL :: a, b
    intf2 = 42.0
  END FUNCTION intf2
 
  LOGICAL FUNCTION intf3 ()
    IMPLICIT NONE
    intf3 = .TRUE.
  END FUNCTION intf3
 
  SUBROUTINE subr (x)
    IMPLICIT NONE
    INTEGER :: x
  END SUBROUTINE subr
 
END MODULE m
 
! { dg-final { cleanup-modules "m" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2
3			`! Type-bound procedures`
4			`! Compiling and errors with GENERIC binding declarations.`
5			`! Bindings with NOPASS.`
6
7			`MODULE m`
8			`IMPLICIT NONE`
9
10			`TYPE somet`
11			`CONTAINS`
12			`PROCEDURE, NOPASS :: p1 => intf1`
13			`PROCEDURE, NOPASS :: p1a => intf1a`
14			`PROCEDURE, NOPASS :: p2 => intf2`
15			`PROCEDURE, NOPASS :: p3 => intf3`
16			`PROCEDURE, NOPASS :: subr`
17
18			`GENERIC :: gen1 => p1a ! { dg-error "are ambiguous" }`
19
20			`GENERIC, PUBLIC :: gen1 => p1, p2`
21			`GENERIC :: gen1 => p3 ! Implicitelly PUBLIC.`
22			`GENERIC, PRIVATE :: gen2 => p1`
23
24			`GENERIC :: gen2 => p2 ! { dg-error "same access" }`
25			`GENERIC :: gen1 => p1 ! { dg-error "already defined as specific binding" }`
26			`GENERIC, PASS :: gen3 => p1 ! { dg-error "Expected access-specifier" }`
27			`GENERIC :: p1 => p1 ! { dg-error "already a non-generic procedure" }`
28			`PROCEDURE, NOPASS :: gen1 => intf1 ! { dg-error "already a procedure" }`
29			`GENERIC :: gen3 => ! { dg-error "specific binding" }`
30			`GENERIC :: gen4 => p1 x ! { dg-error "Junk after" }`
31			`GENERIC :: gen5 => p_notthere ! { dg-error "Undefined specific binding" }`
32			`GENERIC :: gen6 => gen1 ! { dg-error "must target a specific binding" }`
33
34			`GENERIC :: gensubr => p2 ! { dg-error "mixed FUNCTION/SUBROUTINE" }`
35			`GENERIC :: gensubr => subr`
36
37			`END TYPE somet`
38
39			`TYPE supert`
40			`CONTAINS`
41			`PROCEDURE, NOPASS :: p1 => intf1`
42			`PROCEDURE, NOPASS :: p1a => intf1a`
43			`PROCEDURE, NOPASS :: p2 => intf2`
44			`PROCEDURE, NOPASS :: p3 => intf3`
45			`PROCEDURE, NOPASS :: sub1 => subr`
46
47			`GENERIC :: gen1 => p1, p2`
48			`GENERIC :: gen1 => p3`
49			`GENERIC :: gen2 => p1`
50			`GENERIC :: gensub => sub1`
51			`END TYPE supert`
52
53			`TYPE, EXTENDS(supert) :: t`
54			`CONTAINS`
55			`GENERIC :: gen2 => p1a ! { dg-error "are ambiguous" }`
56			`GENERIC :: gen2 => p3`
57			`GENERIC :: p1 => p2 ! { dg-error "can't overwrite specific" }`
58			`GENERIC :: gensub => p2 ! { dg-error "mixed FUNCTION/SUBROUTINE" }`
59
60			`PROCEDURE, NOPASS :: gen1 => intf1 ! { dg-error "Can't overwrite GENERIC" }`
61			`END TYPE t`
62
63			`CONTAINS`
64
65			`INTEGER FUNCTION intf1 (a, b)`
66			`IMPLICIT NONE`
67			`INTEGER :: a, b`
68			`intf1 = 42`
69			`END FUNCTION intf1`
70
71			`INTEGER FUNCTION intf1a (a, b)`
72			`IMPLICIT NONE`
73			`INTEGER :: a, b`
74			`intf1a = 42`
75			`END FUNCTION intf1a`
76
77			`INTEGER FUNCTION intf2 (a, b)`
78			`IMPLICIT NONE`
79			`REAL :: a, b`
80			`intf2 = 42.0`
81			`END FUNCTION intf2`
82
83			`LOGICAL FUNCTION intf3 ()`
84			`IMPLICIT NONE`
85			`intf3 = .TRUE.`
86			`END FUNCTION intf3`
87
88			`SUBROUTINE subr (x)`
89			`IMPLICIT NONE`
90			`INTEGER :: x`
91			`END SUBROUTINE subr`
92
93			`END MODULE m`
94
95			`! { dg-final { cleanup-modules "m" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [typebound_generic_1.f03] - Blame information for rev 581