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
elpa
elpa
Commits
f52e77d9
Commit
f52e77d9
authored
Dec 14, 2017
by
Lorenz Huedepohl
Browse files
Type error: elpa_autotune_implt_t must be type, not class
parent
c1732c8d
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/elpa_impl.F90
View file @
f52e77d9
...
...
@@ -2681,7 +2681,7 @@ module elpa_impl
tune_state
=>
self
%
autotune_setup
(
level
,
domain
,
error
)
select
type
(
tune_state
)
class
is
(
elpa_autotune_impl_t
)
type
is
(
elpa_autotune_impl_t
)
obj
=>
tune_state
class
default
print
*
,
"This should not happen"
...
...
@@ -2707,7 +2707,7 @@ module elpa_impl
real
(
kind
=
C_DOUBLE
)
::
time_spent
select
type
(
tune_state
)
class
is
(
elpa_autotune_impl_t
)
type
is
(
elpa_autotune_impl_t
)
ts_impl
=>
tune_state
class
default
print
*
,
"This should not happen"
...
...
@@ -2777,7 +2777,7 @@ module elpa_impl
type
(
elpa_autotune_impl_t
),
pointer
::
ts_impl
select
type
(
tune_state
)
class
is
(
elpa_autotune_impl_t
)
type
is
(
elpa_autotune_impl_t
)
ts_impl
=>
tune_state
class
default
print
*
,
"This should not happen"
...
...
Write
Preview
Markdown
is supported
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