------- Comment #2 from marbertone at gmail dot com 2008-12-11 16:36 ------- (In reply to comment #1)
a) GNU Fortran (GCC) 4.4.0 20080603 (experimental) [trunk revision 136333] Copyright (C) 2008 Free Software Foundation, Inc. GNU Fortran comes with NO WARRANTY, to the extent permitted by law. You may redistribute copies of GNU Fortran under the terms of the GNU General Public License. For more information about these matters, see the file named COPYING b) it doesn't matter, any code, trust me. c) cat prova.f: IMPLICIT REAL*8 (A-H,O-Z) INTEGER I(10), JJ, PP, MASSIMO, FINE, INDMASSIMO, PJ I(1) = 23 I(2) = 35 I(3) = 48 I(4) = 66 I(5) = 1 I(6) = 4 I(7) = 10 I(8) = 8 I(9) = 6 I(10) = 2 DO PJ = 1,10 print *, 'I(',PJ,') = ',I(PJ) ENDDO FINE = 10 DO JJ = 1,9 MASSIMO = I(1) INDMASSIMO = 1 DO PP = 2, FINE IF (I(PP) .GT. MASSIMO) THEN MASSIMO = I(PP) INDMASSIMO = PP ENDIF ENDDO I(INDMASSIMO) = I(FINE) I(FINE) = MASSIMO DO PJ = 1,FINE print *, 'I(',PJ,') = ',I(PJ) ENDDO print *, '*************' FINE = FINE - 1 ENDDO DO PJ = 1,10 print *, 'I(',PJ,') = ',I(PJ) ENDDO END Gfortran (...) C.\Users\Berto\prg\aov\prova.exe non รจ un'applicazione di Win32 valida. [translation: (...) is not a Win32 valid application) (it is a dialog box, then I press ok and it returns:) Accesso negato (access denied) I hope you give me some ideas! ;) Thanks > Please ... > a) ... specify the version of your compiler (gfortran --version) and > where/how it was obtained > b) ... show a self-contained code example > c) ... show a log of your actions, something like > > $> cat file.f > [...] > $> gfortran -Wall -W -fimplicit-none file.f -o foo.exe > [...] > $> foo.exe > [...] > > where you fill in the [...] > -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38467