🚀 go-pugleaf

$@9-EgBg3X$N5WJ]@n$G$9!#D($j$:$K:FD)@o!#(J

In article <2130@tansei1.tansei.cc.u-tokyo.ac.jp> mhiroshi@tansei.cc.u-tokyo.ac.jp (H. Murakami) writes:
>FORTRAN 77 $@J8K!%/%$%:(J (3)
>
>$@<!$N%W%m%0%i%`$N(J FORTRAN77 $@$H$7$FIT@5$J2U=j(J($@C1?t(J/$@J#?t(J)$@$r;XE&$;$h(J.
>($@C"$7(J,$@9T$N=*$o$j$+$i(J72$@7eL\$^$G$O6uGr$,5M$^$C$F$$$k$H8+$J$7$F2<$5$$(J.)
>
>----$@$3$3$+$i$h(J---
>      SUBROUTINE SUB(C,D,END)
>      DOUBLE PRECISION C
>      DOUBLE COMPLEX D
>      INTEGER END
>*
>      D = (1.0D0,0.D) + C
>*
>      RETURN
>     + = 2.718
>      END
>     + = 3.141
>      END
>----$@$3$3$^$G$h(J---

(1) FORTRAN77$@$K(JDOUBLE COMPLEX$@$O$J$$!#(J

(2) 0.D $@$N(JD$@$N$"$H$K$O(Jinteger$@$,Mh$J$$$H$$$1$J$$(J(0$@$H$+(J)$@!#(J
$@!!!!(JSUN$@$N(Jfortran$@$G$O%(%i!<$G$O$8$+$l$^$7$?!#(J

$@%(%i!<$8$c$J$$$G$9$,!"(Jftnchek$@$H$$$&%U%)!<%H%i%s$NJ8K!%A%'%C%/(J
$@%W%m%0%i%`$rDL$9$H0J2<$N$h$&$J%a%C%;!<%8$,=P$^$7$?!#(J

%ftnchek -f77 -portability t.f
FTNCHEK Version 2.5 January 1992

File t.f:

      3       DOUBLE COMPLEX D
                             ^
Error near line 3 col 22: syntax error
      6       D = (1.0D0,0.D0) + C
                               ^
Error near line 6 col 24: type mismatch in expression
     11      + = 3.141
               ^
Warning near line 11 col 8: real truncated to intg
Variables set but never used in module SUB:
    RETURN


 2 syntax errors detected in file t.f
 1 warning issued in file t.f
%$@!!(J
$@;d$O!"(JSun$@$N%U%)!<%H%i%s%3%s%Q%$%i$G%(%i!<$,=P$J$/$J$C$?$"$H$K(J
$@$3$N(Jftnchek$@$r;H$C$F$5$i$K87$7$$!J!)!K%A%'%C%/$r$7$F$$$^$9!#(J

--
$@!!!!!!!!!!5WJ]@n!!=_;J!!!!9-EgBg3X9)3XIt!!BhFsN`!!EENO9)3X(J
$@!!!!!!!!!!(Jkubokawa@psl.sys.hiroshima-u.ac.jp