Fix GNUmakefile to avoid compiler error
This commit is contained in:
parent
9394b9bdfb
commit
5d571b7929
2 changed files with 1 additions and 4 deletions
|
@ -16,7 +16,7 @@ ifdef debug
|
|||
ifeq ($(F),ifx)
|
||||
F_OPTS += -g
|
||||
else
|
||||
F_OPTS += -ggdb -debug-parameters used
|
||||
F_OPTS += -ggdb
|
||||
endif
|
||||
endif
|
||||
|
||||
|
|
|
@ -614,7 +614,6 @@ contains
|
|||
|
||||
case default
|
||||
! Process constants first
|
||||
print *,'apply_command: default'
|
||||
block
|
||||
integer :: lc,split_idx,end_idx
|
||||
character(len=:), allocatable :: re_comp, im_comp
|
||||
|
@ -652,10 +651,8 @@ contains
|
|||
else
|
||||
if (constants%contains(command)) then
|
||||
x = constants%get_value(command)
|
||||
print *,command//' is constant = ',x
|
||||
else if (stats%contains(command)) then
|
||||
x = stats%get_value(command)
|
||||
print *,command//' is stats'
|
||||
else
|
||||
read(command,*,err=901,end=901) x
|
||||
end if
|
||||
|
|
Loading…
Reference in a new issue