iamstupid/hp
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix GNUmakefile to avoid compiler error

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
GNUmakefile
View file

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

3
app/main.f90
View file

@ -614,7 +614,6 @@ contains
case default case default
! Process constants first ! Process constants first
print *,'apply_command: default'
block block
integer :: lc,split_idx,end_idx integer :: lc,split_idx,end_idx
character(len=:), allocatable :: re_comp, im_comp character(len=:), allocatable :: re_comp, im_comp
@ -652,10 +651,8 @@ contains
else else
if (constants%contains(command)) then if (constants%contains(command)) then
x = constants%get_value(command) x = constants%get_value(command)
print *,command//' is constant = ',x
else if (stats%contains(command)) then else if (stats%contains(command)) then
x = stats%get_value(command) x = stats%get_value(command)
print *,command//' is stats'
else else
read(command,*,err=901,end=901) x read(command,*,err=901,end=901) x
end if end if