KL
Joined: 16 Nov 2009 Posts: 155
|
Posted: Tue Dec 28, 2010 10:41 am Post subject: Warning message |
|
|
Paul,
This is just a minor remark:
In the attached program, I would not expect the warning:
0006) Integer :: recl_exist
WARNING - Variable RECL_EXIST has been used without being given an initial
value
NO ERRORS, 1 WARNING [<TEST54> FTN95/Win32 v6.00.0]
Creating executable: Test54.EXE
Best regards,
Klaus Lassmann
Code: |
Winapp
Program Test54
Implicit None
Integer :: recl_exist
Logical :: nfile_exist
Character (len=10) :: nfile
nfile = 'abcdefghij'
! --- Check whether data set already exists
! Inquire the record length
Inquire ( File = nfile, recl = recl_exist, exist = nfile_exist )
If ( nfile_exist ) Then
write (*,*) 'Name of data set =', nfile
End If
End Program Test54
|
|
|