blob: e8fe03ac38c44cfbdda69da11e50998b1174d53d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
! { dg-do compile }
!
! PR fortran/39427
!
! Check constructor functionality.
!
! Contributed by Damian Rouson.
!
module mycomplex_module
private
public :: mycomplex
type mycomplex
! private
real :: argument, modulus
end type
interface mycomplex
module procedure complex_to_mycomplex, two_reals_to_mycomplex
end interface
! :
contains
type(mycomplex) function complex_to_mycomplex(c)
complex, intent(in) :: c
! :
end function complex_to_mycomplex
type(mycomplex) function two_reals_to_mycomplex(x,y)
real, intent(in) :: x
real, intent(in), optional :: y
! :
end function two_reals_to_mycomplex
! :
end module mycomplex_module
! :
program myuse
use mycomplex_module
type(mycomplex) :: a, b, c
! :
a = mycomplex(argument=5.6, modulus=1.0) ! The structure constructor
c = mycomplex(x=0.0, y=1.0) ! A function reference
c = mycomplex(0.0, 1.0) ! A function reference
end program myuse
! { dg-final { cleanup-modules "mycomplex_module" } }
|
