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
|
module A_allocate_11
implicit none
contains
function dg()
real(kind=8), allocatable :: dg(:)
integer :: i, ierr
allocate(dg(10))
dg = 10.0_8
end function dg
function rg()
real, allocatable :: rg(:)
allocate(rg(10)) ! TODO: Should happen automatically
rg = real(dg())
end function rg
end module
program allocate_11
use A_allocate_11
implicit none
real, allocatable :: rg_result(:)
rg_result = rg()
print *, rg_result
if( any(rg_result /= 10) ) error stop
end program
|
