program readdb ! old db file
real * 8 dlat,dlon,grav
100 read (*,’(3x,i2,i3,i7,21x,f11.6,f12.6,7x,f9.3,t99,f10.3
1 t129,f8.2,t143,f8.2)’)
1 iyr,iproj,istn,dlat,dlon,elev,grav,fa,ba
print ‘(2f12.6,3f10.2,f12.3,i3,i4,i8)’,
1 dlat,-dlon,elev,fa,ba,grav,iyr,iproj,istn
go to 100
end
Yup, that’s fortran alright.
Now for the $64k question… “why?” 
john Halpenny <j.halpenny@rogers.com> wrote:
[fortran code deleted]
–
Robert Krten, PARSE Software Devices +1 613 599 8316.
Realtime Systems Architecture, Books, Video-based and Instructor-led
Training and Consulting at www.parse.com.
Email my initials at parse dot com.
Maybe we’re going to start an Obfuscated Fortran Contest? Just think of the
potential for abuse with gotos.
Kris
“Robert Krten” <nospam88@parse.com> wrote in message
news:agipbt$b67$1@inn.qnx.com…
Yup, that’s fortran alright.
Now for the $64k question… “why?” >
john Halpenny <> j.halpenny@rogers.com> > wrote:
[fortran code deleted]–
Robert Krten, PARSE Software Devices +1 613 599 8316.
Realtime Systems Architecture, Books, Video-based and Instructor-led
Training and Consulting at > www.parse.com> .
Email my initials at parse dot com.
Kris Warkentin <kewarken@qnx.com> wrote:
Maybe we’re going to start an Obfuscated Fortran Contest? Just think of the
potential for abuse with gotos.
And so early in the morning no less.
When I saw the thread title, I thought, hmmm, call for fortran on QNX.
nope, I was wrong.
Tom
There actually was a thread (I think in devtools) about someone who wanted
Fortran for QNX. Apparently, using our patched gcc sources, he built it and
it runs just fine. I think there was some trouble with libf2c or some such
but he got it all working quite nicely.
cheers,
Kris
“Thomas Emberson” <temberson@softwareremodeling.com> wrote in message
news:agjuro$86i$1@inn.qnx.com…
Kris Warkentin <> kewarken@qnx.com> > wrote:
Maybe we’re going to start an Obfuscated Fortran Contest? Just think of
the
potential for abuse with gotos.And so early in the morning no less.
When I saw the thread title, I thought, hmmm, call for fortran on QNX.
nope, I was wrong.Tom
BTW, someone has some success with ADA for QNX. I’m not sure if it’s quite working… there is
thread about it at forum.qnx.org.ru in russian, of course 
P.S. Just to add something to this funny thread
Eduard.
ed1k at ukr dot net
Kris Warkentin <kewarken@qnx.com> wrote in article <agk1ug$fbm$1@nntp.qnx.com>…
There actually was a thread (I think in devtools) about someone who wanted
Fortran for QNX. Apparently, using our patched gcc sources, he built it and
it runs just fine. I think there was some trouble with libf2c or some such
but he got it all working quite nicely.cheers,
Kris
Because he doesn’t have APL for the PC.
“Robert Krten” <nospam88@parse.com> wrote in message
news:agipbt$b67$1@inn.qnx.com…
Yup, that’s fortran alright.
Now for the $64k question… “why?” >
john Halpenny <> j.halpenny@rogers.com> > wrote:
[fortran code deleted]
We were pretty surprised that Fortran “just worked” but I suppose it makes
sense - all the QNX specific stuff is in the backend. I would expect that
with the gcc 3.x series, ADA will also “just work”. The question is whether
it will be officially supported and maintained.
cheers,
Kris
“ed1k” <ed1k@spamerstrap.com> wrote in message
news:01c228e8$bd13a460$106fa8c0@ED1K…
BTW, someone has some success with ADA for QNX. I’m not sure if it’s quite
working… there is
thread about it at forum.qnx.org.ru in russian, of course >
P.S. Just to add something to this funny thread >Eduard.
ed1k at ukr dot netKris Warkentin <> kewarken@qnx.com> > wrote in article
agk1ug$fbm$> 1@nntp.qnx.com> >…
There actually was a thread (I think in devtools) about someone who
wanted
Fortran for QNX. Apparently, using our patched gcc sources, he built it
and
it runs just fine. I think there was some trouble with libf2c or some
such
but he got it all working quite nicely.cheers,
Kris
It would be nice if QSSL could document the procedure and add it to the list
of supported features.
“Kris Warkentin” <kewarken@qnx.com> wrote in message
news:agk1ug$fbm$1@nntp.qnx.com…
There actually was a thread (I think in devtools) about someone who wanted
Fortran for QNX. Apparently, using our patched gcc sources, he built it
and
it runs just fine. I think there was some trouble with libf2c or some
such
but he got it all working quite nicely.cheers,
Kris
“Thomas Emberson” <> temberson@softwareremodeling.com> > wrote in message
news:agjuro$86i$> 1@inn.qnx.com> …
Kris Warkentin <> kewarken@qnx.com> > wrote:
Maybe we’re going to start an Obfuscated Fortran Contest? Just think
of
the
potential for abuse with gotos.And so early in the morning no less.
When I saw the thread title, I thought, hmmm, call for fortran on QNX.
nope, I was wrong.Tom
The bulk of the procedure was just to add fortran to the --enable-languages
line at configure time.
Kris
“Bill Caroselli (Q-TPS)” <QTPS@EarthLink.net> wrote in message
news:agkgcs$lfg$1@inn.qnx.com…
It would be nice if QSSL could document the procedure and add it to the
list
of supported features.“Kris Warkentin” <> kewarken@qnx.com> > wrote in message
news:agk1ug$fbm$> 1@nntp.qnx.com> …
There actually was a thread (I think in devtools) about someone who
wanted
Fortran for QNX. Apparently, using our patched gcc sources, he built it
and
it runs just fine. I think there was some trouble with libf2c or some
such
but he got it all working quite nicely.cheers,
Kris
“Thomas Emberson” <> temberson@softwareremodeling.com> > wrote in message
news:agjuro$86i$> 1@inn.qnx.com> …
Kris Warkentin <> kewarken@qnx.com> > wrote:
Maybe we’re going to start an Obfuscated Fortran Contest? Just
think
of
the
potential for abuse with gotos.And so early in the morning no less.
When I saw the thread title, I thought, hmmm, call for fortran on QNX.
nope, I was wrong.Tom
\
Kris Warkentin wrote:
We were pretty surprised that Fortran “just worked” but I suppose it makes
sense - all the QNX specific stuff is in the backend. I would expect that
with the gcc 3.x series, ADA will also “just work”.
Hmmm, Ada is a much more sophisticated language than fortran, I suspect it
will generate code OK, and it shouldn’t be too hard to get the bindings
for posix threads going. This begs the question of course, of when gcc 3.1
will be available on QNX.
If Ada “just works”, then that will be so typical. Years without any
working object oriented languages, and then suddenly 2 working object
oriented languages (sorry none of the non-ISO-standardized languages such
as Java count as working languages). Technically gcc 3.1 won’t be a
working C++ compiler since it is only around 91% conformant, so I guess
we’ll only have 1 working object oriented language (Ada 95), once gcc 3.1
is available.
Rennie
OOPS!!
THis was an e-mail to myself - I did it just after reading some groups
using Netscrape Mail, so something went wrong. BTW, it is Watcom Fortran
and I can run it under QNX 4.
Sorry again, guys
John.
john Halpenny wrote:
program readdb ! old db file
real * 8 dlat,dlon,grav
100 read (*,’(3x,i2,i3,i7,21x,f11.6,f12.6,7x,f9.3,t99,f10.3
1 t129,f8.2,t143,f8.2)’)
1 iyr,iproj,istn,dlat,dlon,elev,grav,fa,ba
print ‘(2f12.6,3f10.2,f12.3,i3,i4,i8)’,
1 dlat,-dlon,elev,fa,ba,grav,iyr,iproj,istn
go to 100
end
snip
john Halpenny <j.halpenny@rogers.com> wrote:
OOPS!!
THis was an e-mail to myself - I did it just after reading some groups
using Netscrape Mail, so something went wrong. BTW, it is Watcom Fortran
and I can run it under QNX 4.Sorry again, guys
Don’t apologize, at least you posted it in an appropriate conference
And hey, it brought back some memories…
Cheers,
-RK
John.
john Halpenny wrote:
program readdb ! old db file
real * 8 dlat,dlon,grav
100 read (*,’(3x,i2,i3,i7,21x,f11.6,f12.6,7x,f9.3,t99,f10.3
1 t129,f8.2,t143,f8.2)’)
1 iyr,iproj,istn,dlat,dlon,elev,grav,fa,ba
print ‘(2f12.6,3f10.2,f12.3,i3,i4,i8)’,
1 dlat,-dlon,elev,fa,ba,grav,iyr,iproj,istn
go to 100
end
snip
–
Robert Krten, PARSE Software Devices +1 613 599 8316.
Realtime Systems Architecture, Books, Video-based and Instructor-led
Training and Consulting at www.parse.com.
Email my initials at parse dot com.
Robert Krten wrote:
john Halpenny <> j.halpenny@rogers.com> > wrote:
OOPS!!
THis was an e-mail to myself - I did it just after reading some groups
using Netscrape Mail, so something went wrong. BTW, it is Watcom Fortran
and I can run it under QNX 4.
Sorry again, guys
Don’t apologize, at least you posted it in an appropriate conference >
And hey, it brought back some memories…Cheers,
-RK
It brings back memories for me too when I think of how it started.
My first QNX 2 system in about 1988 was to replace an ailing LSI-11 that
was used to control a gravity meter. The code was a mixture of assembler
and DEC Fortran, so with QNX we bought a third party fortran compiler
to do the conversion. The Southdale Fortran was a little unusual, but it
worked and allowed us to retire most of the assembler. All of our office
work was fortran then, and the compiler wasn’t great but the IDE was
fantastic. I could edit the source, then switch consoles and type
to rerun the previously typed ‘make …’. Switch again,
for the run command to try it. When it didn’t work , I switched
back to the editor where the error was almost always where I had last
typed. This was the greatest system of 1988.
When we went to QNX 4 there was no fortran, but we had the DOS Watcom
compiler. It turned out I could run the fortran part under rundos, link
in a combination of QNX and DOS libraries and still be in business. The
fortran was nicer too.
A big problem arose when rundos disappeared. Fortunately I came into
possession of an OSI “stub” for QNX (Thanks Brian!) and Watcom would run
under real QNX.
I don’t write much code now, but I still have some QNX libraries and
makefiles and they still work. If I ever get to QNX 6, I’ll certainly
try the fortran there.
John