mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-01 17:46:55 -04:00
Work around what appears to be a gcc 4.9.0 defect.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4036 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
21bf1f1afa
commit
a39c45f8f4
@ -14,12 +14,13 @@ program jt9
|
|||||||
character(len=500) optarg, infile
|
character(len=500) optarg, infile
|
||||||
integer*4 arglen,stat,offset,remain
|
integer*4 arglen,stat,offset,remain
|
||||||
logical :: shmem = .false., read_files = .false., have_args = .false.
|
logical :: shmem = .false., read_files = .false., have_args = .false.
|
||||||
|
type (option) :: long_options (0)
|
||||||
common/jt9com/ss(184,NSMAX),savg(NSMAX),id2(NMAX),nutc,ndiskdat,ntr, &
|
common/jt9com/ss(184,NSMAX),savg(NSMAX),id2(NMAX),nutc,ndiskdat,ntr, &
|
||||||
mousefqso,newdat,nfa,nfsplit,nfb,ntol,kin,nzhsym,nsynced,ndecoded
|
mousefqso,newdat,nfa,nfsplit,nfb,ntol,kin,nzhsym,nsynced,ndecoded
|
||||||
common/tracer/limtrace,lu
|
common/tracer/limtrace,lu
|
||||||
|
|
||||||
do
|
do
|
||||||
call getopt('s:e:a:r:p:d:f:',(/type(option) ::/),c,optarg,arglen,stat,offset,remain)
|
call getopt('s:e:a:r:p:d:f:',long_options,c,optarg,arglen,stat,offset,remain)
|
||||||
if (stat .ne. 0) then
|
if (stat .ne. 0) then
|
||||||
exit
|
exit
|
||||||
end if
|
end if
|
||||||
|
Loading…
Reference in New Issue
Block a user