Path: jaist-news!wnoc-tyo-news!news.u-tokyo.ac.jp!news.u-tokyo.ac.jp!makino
From: makino@chianti.c.u-tokyo.ac.jp (Jun Makino)
Newsgroups: fj.lang.fortran
Subject: Re: Debugging #01
Date: 04 Jun 1994 07:38:24 GMT
Organization: College of Arts and Sciences, Univ. of Tokyo
Lines: 41
Distribution: fj
Message-ID: <MAKINO.94Jun4163825@chianti.c.u-tokyo.ac.jp>
References: <2sn501$2ut@optsei.rinfo.sumiden.co.jp>
NNTP-Posting-Host: chianti.c.u-tokyo.ac.jp
In-reply-to: sawamura@rinfo.sumiden.co.jp's message of 3 Jun 1994 20:42:57 +0900

$BKRLn!wElBg6p>l$G$9!#(B

In article <2sn501$2ut@optsei.rinfo.sumiden.co.jp>
sawamura@rinfo.sumiden.co.jp (Sawamura) writes:
   $B_7B<!w=;M'EE9)$G$9!#(B

   FORTRAN$B$N%G%P%C%.%s%0$K$D$$$F8fLd$$9g$o$;CW$7$^$9!#(BFORTRAN$B$N%P%0$NCf$G(B
   $B$b!"G[Ns$NE:;z$K4X$9$k$b$N$H%5%V%k!<%A%s$N0z?t$K4X$9$k$b$N$O0-<A$@$H;W(B
   $B$$$^$9$,!"3'$5$s$O$I$&%G%P%C%0$J$5$C$F$$$k$N$G$7$g$&$+!#(B

   $B-!E:;z<0$O9g3J!"E:;z$OIT9g3J$NNc(B

	 PROGRAM EX1
	 PARAMETER(M1=2,M2=M1+1)
	 DIMENSION A(M1,M2)
   C
   C     M1$B$H(BM2$B$N=q$-4V0c$$(B
   C
	 DO I=1,M1
	  DO J=1,M2
	   A(J,I)=0
	  ENDDO
	 ENDDO
	 END

$B:G6a$N(B UNIX f77 $B$@$H(B SUBCHK $B$K$"$?$k$b$N$O$"$C$?$O$:$H;W$C$F!"$A$g$C$H(B
$BD4$Y$F8+$^$7$?!#(B

SUN FORTRAN 1.4 : $B8!=P$7$J$$(B
MIPS fortran 2.11 : $B8!=P$7$J$$(B
DEC Fortran on OSF/1 1.2(?) : $B8!=P$9$k(B

DEC $B$G$O$3$s$J46$8$G$9!'(B

>>f77 -C test1.f
>>a.out
forrtl: severe: array index out of bounds for index 1 (SIGTRAP)

$B$5$9$,$K(B DEC $B$N$ONI$/$G$-$F$k$H$$$&$3$H$G$7$g$&$+!#(B

$BKRLn!wElBg6p>l(B