Fix GNUmakefile to avoid compiler error

This commit is contained in:
sgeard 2023-06-14 20:54:43 +01:00
parent 9394b9bdfb
commit 5d571b7929
2 changed files with 1 additions and 4 deletions

View file

@ -16,7 +16,7 @@ ifdef debug
ifeq ($(F),ifx)
F_OPTS += -g
else
F_OPTS += -ggdb -debug-parameters used
F_OPTS += -ggdb
endif
endif

View file

@ -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