projects
/
platform
/
upstream
/
gcc48.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Imported Upstream version 4.8.1
[platform/upstream/gcc48.git]
/
gcc
/
testsuite
/
gfortran.dg
/
constructor_3.f90
1
! { dg-do run }
2
!
3
! PR fortran/39427
4
!
5
! Check constructor functionality.
6
!
7
!
8
module m
9
interface cons
10
procedure cons42
11
end interface cons
12
contains
13
integer function cons42()
14
cons42 = 42
15
end function cons42
16
end module m
17
18
19
module m2
20
type cons
21
integer :: j = -1
22
end type cons
23
interface cons
24
procedure consT
25
end interface cons
26
contains
27
type(cons) function consT(k)
28
integer :: k
29
consT%j = k**2
30
end function consT
31
end module m2
32
33
34
use m
35
use m2, only: cons
36
implicit none
37
type(cons) :: x
38
integer :: k
39
x = cons(3)
40
k = cons()
41
if (x%j /= 9) call abort ()
42
if (k /= 42) call abort ()
43
!print *, x%j
44
!print *, k
45
end