This is the mail archive of the gcc@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

help for the use of G95 compiler


Using the G95 Compiler I am odtining very good results.
Time by time I have same problems as that in the following exemple:

! Listing of tha program

program fibre
!
!Legge gli indici di rifrazionne di due materiali
! che formano una fibra ottica. Legge inoltre l'
! angolo di incidenza della luce che incide sulla
! fibra e calcolare se la luce viene trasmessa.
!
!Definisce e inzializza le variabili.
!
	implicit none
	real :: angle, critical_angle, n_1, n_2, pi
	parameter (pi =3.141593)
!
!Avvisa l' utente di scrivere gli indici di rifrazione.

print*, "Scrivi l' indice di rifrazione della fibra:"
read*, n_1
print*, "Scrivi l' indice di rifrazione", &
"della guaina:"
read*, n_2
print*, "Scrivi l' angolo di trasmissione della", &
" luce in gradi:"
read*, angle
!
!Valuta se la luce venga trasmessa e scrive un adeguato messaggio
!
if (n_2 > n_1) then
print*, "La luce non vine trasmessa."
else
critical_angle = asin(n_2/n_1)*(180.0/pi)
if ( angle > critical_angle) then
print*, "La luce viene trasmessa."
else
print*, "La luce non vine trasmessa."
end if
end if
!
end program fibre
________________________________________________________________________ __-
I am sorry for same italian.
Running this program i have the following result:



134net199:~/INGEGNERIA/FORTRAN raffaelecotza$ gfortran fibre.f95 -lstdc++ -o./fibre.out
/usr/bin/ld: unknown flag: -o./fibre.out
collect2: ld returned 1 exit status
134net199:~/INGEGNERIA/FORTRAN raffaelecotza$ emacs fibre.f95
134net199:~/INGEGNERIA/FORTRAN raffaelecotza$



Can you help me ? Thank you very mutch Raffaele


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]