Il giorno venerdì 17 marzo 2023 alle 04:10:27 UTC-3 ladislau szilagyi ha scritto:
> Pe vineri, 17 martie 2023, la 01:39:01 UTC+2, Plo a scris:
> > Il giorno giovedì 16 marzo 2023 alle 20:32:48 UTC-3 Plo ha scritto:
> > > Il giorno giovedì 16 marzo 2023 alle 17:13:37 UTC-3 fridtjof.ma....@gmail.com ha scritto:
> > > > On Thursday, March 16, 2023 at 3:23:43 PM UTC-4, Plo wrote:
> > > > > Il giorno giovedì 16 marzo 2023 alle 16:19:41 UTC-3 Plo ha scritto:
> > > > > > Il giorno giovedì 16 marzo 2023 alle 15:22:40 UTC-3 fridtjof.ma...@gmail.com ha scritto:
> > > > > > > On Thursday, March 16, 2023 at 10:32:44 AM UTC-4, Plo wrote:
> > > > > > > > Il giorno giovedì 16 marzo 2023 alle 08:22:41 UTC-3 Plo ha scritto:
> > > > > > > > > Il giorno mercoledì 15 marzo 2023 alle 10:12:57 UTC-3 Андрей Никитин ha scritto:
> > > > > > > > > > среда, 15 марта 2023 г. в 03:23:54 UTC+3, plo...@gmail.com:
> > > > > > > > > > > Il giorno sabato 11 marzo 2023 alle 16:39:13 UTC-3 Андрей Никитин ha scritto:
> > > > > > > > > > > > среда, 8 марта 2023 г. в 12:23:21 UTC+3, plo...@gmail.com:
> > > > > > > > > > > > > Il giorno martedì 7 marzo 2023 alle 07:26:10 UTC-3 Nils M Holm ha scritto:
> > > > > > > > > > > > > > plo...@gmail.com <plo...@gmail.com> wrote:
> > > > > > > > > > > > > > > 10 FORMAT(1H ,2F11.3,2H ,2F11.3,2H ,2F11.3)
> > > > > > > > > > > > > > It is probably unrelated, but I see two 2H with only one
> > > > > > > > > > > > > > subsequent blank here.
> > > > > > > > > > > > > >
> > > > > > > > > > > > > > --
> > > > > > > > > > > > > > Nils M Holm < n m h @ t 3 x . o r g > http://t3x.org
> > > > > > > > > > > > > Thanks Nils,
> > > > > > > > > > > > > But that's just my transcription error of the source. The strange thing is that in the package there is an executable file FCHECK.com which is used to check all the files in the package and when I run it, all the files are OK! that is, intact... It is very strange.
> > > > > > > > > > > > Is it possible to download this compiler from the Internet. If possible please send me a link to where I can do it.
> > > > > > > > > > > >
> > > > > > > > > > > > Best regards
> > > > > > > > > > > > Andrey Nikitin
> > > > > > > > > > > https://drive.google.com/drive/folders/1ms1yidXdQswVCvs0yU63sCnLTX6HhzKr?usp=sharing
> > > > > > > > > > Thanks for the link to the compiler.
> > > > > > > > > > This compiler is less common among CP/M users and almost unavailable. It is a pity that there is no user manual for it.
> > > > > > > > > > I was able to compile the test programs and get object files, but I could not get executable files out of them. When I run the linker and specify an object file name and then a library name, the program crashes. Maybe you have solved this problem in some other way, and generate an executable file. I will be happy to get any information on this matter.
> > > > > > > > > >
> > > > > > > > > > regards,
> > > > > > > > > > Andrey
> > > > > > > > > Hi Andrey,
> > > > > > > > > I want to verify that the files I uploaded in the folder are correct...then I'll let you know...
> > > > > > > > I have inserted the ProsFor.rar file which contains the complete compiler and linker files. To compile:>PROFOR and follow compiler prompts. For the LINKER :>Prolink and follow the linker requests (xxx1.rel,xxx2.rel....,FORLIB.rel) The COMPLEX.FOR source generates an incomprehensible error during the PASS 2 of the compiler and if you always confirm to go to the end of the compilation and then do the LINK you will notice that when you run the complex.com executable which sums A+B=C and prints , it doesn't calculate the sum... very strange...
> > > > > > > I confirm your error:
> > > > > > > Error C at address 1D5F
> > > > > > > Continue ? (Y/N) y
> > > > > > >
> > > > > > > FCHECK seems to like the compiler parts
> > > > > > > : fred@llana prospero $; cpm fcheck
> > > > > > >
> > > > > > > PROFOR2.COM - checks OK
> > > > > > >
> > > > > > > PROFOR.ERR - checks OK
> > > > > > >
> > > > > > > FORLIB.REL - checks OK
> > > > > > >
> > > > > > > FCONFIG.COM - checks OK
> > > > > > >
> > > > > > > G1LIB.MAC - checks OK
> > > > > > >
> > > > > > > G2LIB.MAC - checks OK
> > > > > > >
> > > > > > > PRIME.FOR - checks OK
> > > > > > >
> > > > > > > COPYTX.FOR - checks OK
> > > > > > >
> > > > > > > MAZE.FOR - checks OK
> > > > > > >
> > > > > > >
> > > > > > > Is it possible that COMPLEX support is simply "not there"?
> > > > > > >
> > > > > > > : fred@llana prospero $; cat complex.map
> > > > > > > Pro Fortran Compiler - Version zz 1.2
> > > > > > > Map of: complex.FOR
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > ****************
> > > > > > > * Unit COMPLE *
> > > > > > > ****************
> > > > > > >
> > > > > > > Name Kind Type Area Offset
> > > > > > >
> > > > > > > A Variable Comp Data 0008 (8)
> > > > > > > B Variable Comp Data 0010 (16)
> > > > > > > Z Variable Comp Data 0000 (0)
> > > > > > >
> > > > > > >
> > > > > > > Sizes:-
> > > > > > >
> > > > > > > Data 0018 (24)
> > > > > > >
> > > > > > >
> > > > > > > So, the MAP file indicates that complex is there... 8 bytes is correct. I thought that maybe the IMPLICIT was interfering, and that's not it. Nor is it the variable >layout - commenting out Z = makes A 0, B 8 and Z 16 (offset). Same error.
> > > > > > Why doesn't the compiler (PROFOR2) give an error with exponential complex function? In the algebraic sum Z=A+B it gives the error!! I can't understand this...
> > > > > > PROGRAM COMPLE
> > > > > > IMPLICIT REAL (A-H,O-Z)
> > > > > > COMPLEX A,B,Z
> > > > > > C Z = CMPLX(0.0, 0.0)
> > > > > > A = CMPLX(3.5, 3.5)
> > > > > > B = CMPLX(4.0, 5.0)
> > > > > > Z = B**2
> > > > > > WRITE(1,10) A, B, Z
> > > > > > 10 FORMAT(1H ,2F11.3,2H ,2F11.3,2H ,2F11.3)
> > > > > > PAUSE
> > > > > > STOP
> > > > > > END
> > > > > > No compiler error!!!
> > > > > > ++++++++++++++++++++++++++++++
> > > > > > Pass 2
> > > > > > Unit: Code: Data:
> > > > > > COMPLE 153 24
> > > > > > Total source lines 12
> > > > > > Prolink.........
> > > > > > Linking:
> > > > > > COMPLEX.REL
> > > > > > FORLIB.REL
> > > > > > Data:.......
> > > > > > ...............
> > > > > > ..............
> > > > > > Executable File: COMPLEX.COM
> > > > > >
> > > > > > >COMPLEX
> > > > > > 3.500 3.500 4.000 5.000 -9.000 40.000
> > > > > > A complex B complex Z=B**2 EXACT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
> > > > > > Why??????????????????????
> > > > > C Z = CMPLX(0.0, 0.0) Comment in column 1 ==>>...... C Z=CMPLX(0.0, 0.0)
> > > > And, just for fun - the error is in both COMPLEX + COMPLEX *and* COMPLEX + REAL. Now, I am "nerd-sniped"
> > > Strangely, the compile error "pass 2" DOES NOT APPEAR only when there is only one intrinsic function of a only complex variable i.e. Csin(z), Ccos(z), z**constant, etc. etc, when there are two or more complex operands, then the error appears!!!!
> > I'm going crazy!!!!! And I'm sorry because it's the only Fortran Compiler under CP/M-80 with COMPLEX data Type
> Perhaps this would help: I found a link for the PROSPERO PROFORTRAN manual : http://www.dilwyn.me.uk/language/ProsperoQlFortran77UM3.pdf
>
> Ladislau
Thank-You!!!