JvO
Joined: 18 Aug 2005 Posts: 15
|
Posted: Sun Oct 30, 2005 9:29 am Post subject: FTN95 Error with PAD in OPEN |
|
|
The following program gives incorrect result:
Code: |
! [JvO] 2005-10-30 Pad-err.f90
Program Advance_0
!-->
Integer, Parameter :: inp = 13
character (len=6) :: Inq
OPEN(Unit=inp, File = "ADV.inp", PAD="NO")
Inquire(Unit = inp, Pad = Inq)
Print *, "Input Pad: ", Inq ! <=============
End Program Advance_0
! D:FortranErrorSalford>ftn95 /check pad-err.f90 /lgo
! [FTN95/Win32 Ver. 4.8.0 Copyright (C) Salford Software Ltd 1993-2005]
! NO ERRORS [<ADVANCE_0> FTN95/Win32 v4.8.0]
! Creating executable: D:FortranErrorSalfordlgotemp@.exe
! Program entered
! Input Pad: YES
|
[JvO] |
|