 |
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
dpannhorst
Joined: 29 Aug 2005 Posts: 165 Location: Berlin, Germany
|
Posted: Fri Feb 24, 2017 12:03 pm Post subject: FTN 95 8.10 Personal Edition |
|
|
Will the new version 8.10 of FTN95 also be available as Personal Edition? |
|
Back to top |
|
 |
silverfrost Site Admin

Joined: 29 Nov 2006 Posts: 193 Location: Manchester
|
Posted: Sat Feb 25, 2017 3:40 pm Post subject: |
|
|
It will. |
|
Back to top |
|
 |
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2402 Location: Yateley, Hants, UK
|
Posted: Sat Feb 25, 2017 5:41 pm Post subject: |
|
|
Why not just 'Yes'? |
|
Back to top |
|
 |
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2402 Location: Yateley, Hants, UK
|
Posted: Tue Feb 28, 2017 4:24 pm Post subject: |
|
|
Not palindromes, sorry, as understood by Brits who don't have a thing about Alaskan Bush People but who mastered ancient Greek at school.
'It will' was excessively prolix when 'Yes' would have done. The answer to 'When' is probably 'Soon'. Eventually it will be 'Now'.
Is it? It is! (which isn't, if you get my meaning.)
Eddie |
|
Back to top |
|
 |
dpannhorst
Joined: 29 Aug 2005 Posts: 165 Location: Berlin, Germany
|
Posted: Tue Feb 28, 2017 4:36 pm Post subject: |
|
|
Sorry, I am not so familiar with your language. So I looked at Wikepedia for the meaning of Palindrome. Wikipedia says:
A palindrome is a word, phrase, number, or other sequence of characters which reads the same backward as forward, such as madam or racecar.
So I think:
Yes backward is sew
and
It will backward is lliw ti
My original question was, when the Personal Edition 8.10 will be available? Today, tomorrow or later on? |
|
Back to top |
|
 |
dpannhorst
Joined: 29 Aug 2005 Posts: 165 Location: Berlin, Germany
|
Posted: Tue Feb 28, 2017 4:37 pm Post subject: |
|
|
Of cause:
Yes backward is sey |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2924 Location: South Pole, Antarctica
|
Posted: Wed Mar 01, 2017 2:53 am Post subject: |
|
|
When you get 8.10 or any further upgrades please do not forget to report all the problems with it. This way we users will debug it and make it perfect much faster. Otherwise sometimes it takes years for some hidden bug to expose itself. Do not forget also about your suggestions to improve compiler and debugger. |
|
Back to top |
|
 |
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2402 Location: Yateley, Hants, UK
|
Posted: Wed Mar 01, 2017 3:20 pm Post subject: |
|
|
Paul,
Since you read every post, then I suspect that you didn't appreciate the difference between palindrome and Palin drome: the latter being a punning usage about a US political figure (I guessed) or one of the Monty Python team (more probable in retrospect).
My original post was an observation on brevity, for which you are famous (notorious?).
The whole point is will 8.10 be PE, yes, and when, soon. Even you can't be briefer than that! (I'll accept OK instead of Yes to prove that you can).
The second point is that a PE release opens up a whole set of extra testers, for example I use an obsolete Academic version of FTN95 to support some software in the department I retired from 5 years ago, and the current PE for my personal dabblings. While 8.10 isn't PE-ready I can't find any problems with it (Dan).
If you want the answer to the question: Which is more likely to find bugs:
(a) 1 tester working for X days
(b) N testers working for X/N days
The answer is probably (b). If you tack on (b) after (a) and ask will this do a better job than (a) or even (b) alone, the answer with a high degree of probability is 'yes', with the certainty increased along with N.
Every dilettante's favourite program is a test suite that cannot be simply reproduced at Silverfrost, and overall is run on a range of hardware that few single organisations can support.
An early release of the PE seems to me therefore to be in everyone's interest.
Eddie
PS. The briefest reply short of ignoring this is 'OK', but I suppose most of us would settle for a date. |
|
Back to top |
|
 |
mecej4
Joined: 31 Oct 2006 Posts: 1899
|
Posted: Mon Mar 06, 2017 6:07 pm Post subject: |
|
|
Eddie, Now!
Today, FTN95 8.10 PE is available for download. I am pleased to find that most of the bugs that I reported have been fixed.
For the first time, I find that SDBG64 is usable, but it is still lacking features that I like the 32-bit debugger for. For example, I cannot set the font large enough for easy reading, nor can I set the background color.
It would be nice if the register window displayed the values in FPU registers, and if the call stack showed, in addition to routine names, line numbers or at least addresses.
Last edited by mecej4 on Tue Mar 07, 2017 11:36 am; edited 1 time in total |
|
Back to top |
|
 |
Robert

Joined: 29 Nov 2006 Posts: 457 Location: Manchester
|
Posted: Tue Mar 07, 2017 10:21 am Post subject: |
|
|
Does the 32-bit version show line numbers in the call stack window? |
|
Back to top |
|
 |
mecej4
Joined: 31 Oct 2006 Posts: 1899
|
Posted: Tue Mar 07, 2017 11:38 am Post subject: |
|
|
No, but I wish it did! The information to do that seems to be in the EXE already, since the pop up after a program error shows the information in the traceback. |
|
Back to top |
|
 |
Robert

Joined: 29 Nov 2006 Posts: 457 Location: Manchester
|
Posted: Tue Mar 07, 2017 11:48 am Post subject: |
|
|
I'll put it on the to-do list. |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2924 Location: South Pole, Antarctica
|
Posted: Wed Mar 08, 2017 3:56 am Post subject: |
|
|
The new 64bit 8.10 is fast and sometimes is much faster with /optimize option but optimization not always works sometimes crashing the code.
The old compiler was not completely fixed for all such kind of errors for years since I suspect it was difficult to demonstrate the cause for this on some reasonably small code for developers to work on error.
I'd urge users to try /opt and if you can minimize the source to write smaller demonstration program report it to Silverfrost. |
|
Back to top |
|
 |
DanRRight
Joined: 10 Mar 2008 Posts: 2924 Location: South Pole, Antarctica
|
Posted: Sat Mar 11, 2017 10:58 am Post subject: |
|
|
Couple years back Davidb wrote assembler utilities Vec_Add_SSE, Vec_Sum_SSE ... to use SSE. As usually they were just embedded into Fortran text and recognized. They looked like this
Code: |
! Assembly code is between code, edoc lines
code
movupd xmm7%, v ; move v array to xmm7
mov eax%, =x ; address of x
mov ecx%, =y ; address of y
.................
|
Now 64bit compiler does not recognize them
Code: |
[6942) movsd [ecx%], xmm0% ; form y(1) = y(1) + a*x(1)
*** Error 29: Syntax Error
6966) movupd [ecx%], xmm0% ; move xmm0 into next 2 doubles in y
*** Error 29: Syntax Error
*** Error 343: Unrecognised assembler mnemonic - MOVAPD
6976) movapd xmm1%, [eax%+16] ; move next 2 doubles in x into xmm1
6999) movsd [ecx%], xmm0%
10 ERRORS [<VEC_ADD_SSE> FTN95 v8.10.0]
|
Any ideas how to resolve this issue ? |
|
Back to top |
|
 |
JohnCampbell
Joined: 16 Feb 2006 Posts: 2615 Location: Sydney
|
Posted: Sat Mar 11, 2017 11:06 am Post subject: |
|
|
Dan,
FTN95 /64 provides new routines for this.
see ...\ftn95\doc\noteson64bitftn95.txt
Code: | SSE and AVX support
-------------------------------------------------------------------------------
FTN95 /64 creates machine code that makes some use of the SSE and AVX instruction
sets (see https://en.wikipedia.org/wiki/Streaming_SIMD_Extensions). Users can
also provide direct SSE/AVX support via CODE/EDOC statements in their code (see
below for further details).
Four "BLAS" type library routines (DOT_PRODUCT8@,DOT_PRODUCT4@,AXPY8@ and AXPY4@)
are also provided and these make direct use of the SSE/AVX instruction sets.
In addition, the library function USE_AVX@ can be called in order to instruct these
routines to use AVX rather than SSE when the CPU and operating system make this
possible.
REAL*8 FUNCTION DOT_PRODUCT8@(x,y,n)
REAL*8 x(n),y(n)
INTEGER*8 n
REAL*4 FUNCTION DOT_PRODUCT4@(x,y,n)
REAL*4 x(n),y(n)
INTEGER*8 n
SUBROUTINE AXPY8@(y,x,n,a)
REAL*8 x(n),y(n),a
INTEGER*8 n
(Y = Y + A*X)
SUBROUTINE AXPY4@(y,x,n,a)
REAL*4 x(n),y(n),a
INTEGER*8 n
(Y = Y + A*X)
INTEGER FUNCTION USE_AVX@(level)
INTEGER level
(Set level = 0 for SSE. Set level = 1 for AVX. The function returns the level that
will be used by the current CPU/OS.
The default level is 1 which means that AVX will be used when available otherwise
SSE. If USE_AVX@(1) is called before an ALLOCATE statement then the resultant
addresses will be 32 byte aligned. The USE_AVX@ level must be the same at a
corresponding DEALLOCATE.)
For example:
INTEGER(4),PARAMETER::n=100
REAL(2) DOT_PRODUCT8@,prod,x(n),y(n)
INTEGER USE_AVX@,level
! x = ...; y = ...
level = USE_AVX@(0)
prod = DOT_PRODUCT8@(x,y,n) |
|
|
Back to top |
|
 |
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|