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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [private_type_4.f90] - Blame information for rev 12

Details | Compare with Previous | View Log


! { dg-do compile }
! PR 25093: Check that a PUBLIC function can't be of PRIVATE type
module m1
 
    type :: t1
        integer :: i
    end type t1
 
    private :: t1
    public :: f1     ! { dg-error "cannot be of PRIVATE type" }
 
contains
 
    type(t1) function f1()
    end function
 
end module
 
! { dg-final { cleanup-modules "m1" } }

Line No.	Rev	Author	Line
1	12	jlechner	`! { dg-do compile }`
2			`! PR 25093: Check that a PUBLIC function can't be of PRIVATE type`
3			`module m1`
4
5			`type :: t1`
6			`integer :: i`
7			`end type t1`
8
9			`private :: t1`
10			`public :: f1 ! { dg-error "cannot be of PRIVATE type" }`
11
12			`contains`
13
14			`type(t1) function f1()`
15			`end function`
16
17			`end module`
18
19			`! { dg-final { cleanup-modules "m1" } }`

Browse

Tools

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [private_type_4.f90] - Blame information for rev 12