From KRUYT@rullf2.LeidenUniv.nl Mon Jun 14 10:22:13 1993 Received: from rulway.LeidenUniv.nl by dkuug.dk with SMTP id AA26809 (5.65c8/IDA-1.4.4j for ); Mon, 14 Jun 1993 09:22:54 +0200 Received: from rulsur (rulsur.LeidenUniv.nl) by rulway.LeidenUniv.nl with SMTP id AA29776 (5.65c+/IDA-1.4.4 for ); Mon, 14 Jun 1993 09:22:59 +0200 Received: from rullf2.LeidenUniv.nl (RULLF2) by rulsur.LeidenUniv.nl (PMDF #12291) id <01GZD3GN6D0W003RJQ@rulsur.LeidenUniv.nl>; Mon, 14 Jun 1993 09:22 MET Received: from rullf2.LeidenUniv.nl by rullf2.LeidenUniv.nl (PMDF V4.2-11 #2497) id <01GZD3FZ0Q9S95MS0P@rullf2.LeidenUniv.nl>; Mon, 14 Jun 1993 09:22:13 MET Date: Mon, 14 Jun 1993 09:22:13 +0100 (MET) From: "Erik W. Kruyt (+31 71 276804)" Subject: Use of default format for internal files To: SC22WG5@dkuug.dk Message-Id: <01GZD3FZ19K295MS0P@rullf2.LeidenUniv.nl> X-Envelope-To: SC22WG5@dkuug.dk X-Vms-To: IN%"SC22WG5@dkuug.dk" Content-Transfer-Encoding: 7BIT Mime-Version: 1.0 X-Charset: ASCII X-Char-Esc: 29 > All, > Using a Fortran QC package (QA Fortran) Steven has come across a > warning message complaining of a ANSI violation as follows: > AN INTERNAL FILE MUST NOT BE DEFAULT FORMAT > against the line: > write(msg,*) 'mpfk_ralpfk: no traces found ', isst,itr, jcdp > where msg is a variable of type character. > The essence of the warning is understood, but could anyone tell us: > o what the rationale behind this part of the ANSI standard is, > o what the potential dangers of using this construct are, and > o what the implications for portability of this code are. > Many thanks, > ------------------------------------------------------------------------ > Steven Heaney and Matthijs van Waveren > Schlumberger Geco-Prakla > Postbus 148 > 2600 AC Delft > The Netherlands > heaney@delft.sgp.slb.com/waveren@delft.sgp.slb.com > ------------------------------------------------------------------------ As concerns the portability of this code according to my knowledge of current compilers the following compilers support list directed formatting on internal files: VAX Fortran, IBM VS2, Sun HP9000, DEC Fortran for Risc,Control Data 4000, IBM RS6000, NDP, Salford FTN, Watcom. The following compilers do not support it: Unisys, Cyber, Prime, Cray CFT, Convex, HP Apollo/Domain, Ryan McFarland, Microsoft, Lahey, Prospero. As David pointed out Fortran 90 compilers have to support this feature. Erik Kruyt