Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site ucbvax.BERKELEY.EDU
Path: utzoo!watmath!clyde!cbosgd!ucbvax!ddathd21.BITNET!#d22
From: #d22@DDATHD21.BITNET (Ralf Bayer)
Newsgroups: mod.computers.vax
Subject: Crashing VAX/VMS V4.1 with simple FORTRAN program
Message-ID: <8511120057.AA17745@ucbvax.berkeley.edu>
Date: Mon, 11-Nov-85 19:57:45 EST
Article-I.D.: ucbvax.8511120057.AA17745
Posted: Mon Nov 11 19:57:45 1985
Date-Received: Wed, 13-Nov-85 06:57:07 EST
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 49
Approved: info-vax@ucbvax.berkeley.edu

Hi, NetLandians,
  try the following FORTRAN program:

C ---------------- Start of Program ----------------------
        CHARACTER*1 ASK
2000    FORMAT(' Input Character : ',$)
        WRITE(6,2000)
        READ(5,1500,END=5000,ERR=5000) ASK
1500    FORMAT(A1)
        STOP 'Program ended without Error'
5000    STOP 'Program ended with Error'
        END
C ----------------- End of Program -----------------------

We have the following system environment:
 Processor:        VAX-11/780
 Operating System: VAX VMS V4.1
 Compiler:         VAX FORTRAN V4.3

I compiled the above program, linked it, ran it, and I performed the
following input:

$ RUN PROGRAM
Input Character : ddddd
                    |--------position Cursor with arrow keys to this
                             spot, then press Control_U.
                             --> The following new line appears:
ddd
|---- Cursor is here.
      now position Cursor with arrow keys to the right of the string,
      then press Control_U again.

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!  But slowly, first read what happened at our site:         !!!
!!!                                                            !!!
!!!  The system crashed with an ACCVIO on the Kernel Stack.    !!!
!!!  So, before you try it yourself, ask your System Manager.  !!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

If you should come up with any suggestions, comments or anything
like that, please respond to me directly, because I'm not on the
INFO-VAX mailing list.

regards  -  Ralf Bayer
** Computing Center at the Technical University of Darmstadt  **
** Federal Republic of Germany  ( West Germany )              **
#d22%ddathd21.bitnet@wiscvm.wisc.EDU  (from ARPAnet)
#d22@ddathd21                         (from BITNET / EARN)
(Beware of the number sign - it's part of my User-ID)