Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
MolDyn
lib4neuro
Commits
fcfd3be9
Commit
fcfd3be9
authored
Nov 27, 2017
by
Martin Beseda
Browse files
FIX: Compilation fixed
parent
8b54fa0e
Changes
1
Show whitespace changes
Inline
Side-by-side
src/connection_m_mem_leak_test.f90
View file @
fcfd3be9
...
@@ -2,6 +2,7 @@ program connection_mem_leak_test
...
@@ -2,6 +2,7 @@ program connection_mem_leak_test
use
connection_m
use
connection_m
use
neuron_m
use
neuron_m
use
normal_m
use
normal_m
use
data_kinds_4neuro_m
type
(
mock_neuron_t
),
pointer
::
n1_p
type
(
mock_neuron_t
),
pointer
::
n1_p
type
(
mock_neuron_t
),
pointer
::
n2_p
type
(
mock_neuron_t
),
pointer
::
n2_p
...
@@ -20,7 +21,7 @@ program connection_mem_leak_test
...
@@ -20,7 +21,7 @@ program connection_mem_leak_test
con2
=>
connection_t
(
input_neuron
=
n1_p
,
output_neuron
=
n2_p
)
con2
=>
connection_t
(
input_neuron
=
n1_p
,
output_neuron
=
n2_p
)
print
*
,
'Creating an instance of the class interval_connection_t with 3-parameters constructor...'
print
*
,
'Creating an instance of the class interval_connection_t with 3-parameters constructor...'
con1
=>
connection_t
(
input_neuron
=
n1_p
,
output_neuron
=
n2_p
,
weight
=
5.25
)
con1
=>
connection_t
(
input_neuron
=
n1_p
,
output_neuron
=
n2_p
,
weight
=
real
(
5.25
,
real_4neuro
)
)
deallocate
(
con1
)
deallocate
(
con1
)
deallocate
(
con2
)
deallocate
(
con2
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment