OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2011-01-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
private_type_11.f90
1
! { dg-do compile }
2
! { dg-options "-std=f2003" }
3
! PR fortran/38065
4
!
5
! Reported by Norman S. Clerman
6
! and reduced by Joost VandeVondele
7
!
8
MODULE M1
9
IMPLICIT NONE
10
PRIVATE
11
TYPE T1
12
INTEGER :: I1
13
END TYPE T1
14
PUBLIC :: S1,F2
15
CONTAINS
16
SUBROUTINE S1
17
CONTAINS
18
TYPE(T1) FUNCTION F1()
19
END FUNCTION F1
20
END SUBROUTINE S1
21
TYPE(T1) FUNCTION F2()
22
END FUNCTION F2
23
END MODULE M1
24
! { dg-final { cleanup-modules "m1" } }