> Hi all. I am fairly sure about the cause of a bug in some old code I'm
> reworking, but thought I would confirm here.
>
> I have a chunk of code (dating from the early 1980's) that accepts
> inputs from users with a
>
> READ (*,'(A)') DBUFF
>
> statement (where DBUFF is CHARACTER*800). The goal is to allow the user
> to type in a nice long descriptive comment, to be stored in the database
> with the associated numbers. However, I cannot get the program to
> correctly read the text from DBUFF if it exceeds 255 characters in
> length. I as assuming that this is because of the RECL for the standard
> input unit number from which I am reading.

> J. F. Cornwall wrote:

>> Hi all. I am fairly sure about the cause of a bug in some old code
>> I'm reworking, but thought I would confirm here.
>>
>> I have a chunk of code (dating from the early 1980's) that accepts
>> inputs from users with a
>>
>> READ (*,'(A)') DBUFF
>>
>> statement (where DBUFF is CHARACTER*800). The goal is to allow the
>> user to type in a nice long descriptive comment, to be stored in the
>> database with the associated numbers. However, I cannot get the
>> program to correctly read the text from DBUFF if it exceeds 255
>> characters in length. I as assuming that this is because of the RECL
>> for the standard input unit number from which I am reading.

> ..
>
> I don't know about Sun Studio and someone (Bob Corbett may see) surely
> does. However, as a quickie, what does INQUIRE() for RECL tell you, if ...

> J. F. Cornwall wrote:

>> READ (*,'(A)') DBUFF

> I don't know about Sun Studio and someone (Bob Corbett may see) surely
> does. However, as a quickie, what does INQUIRE() for RECL tell you, if
> anything?

> dpb wrote:
>

>> J. F. Cornwall wrote:

> (snip)
>

>>> READ (*,'(A)') DBUFF

> (snip)
>

>> I don't know about Sun Studio and someone (Bob Corbett may see) surely
>> does. However, as a quickie, what does INQUIRE() for RECL tell you,
>> if anything?

>
> Is UNIT=* allowed for INQUIRE?
>
> It seems that for Fortran 2003, UNIT=INPUT_UNIT (with the appropriate
> module) is allowed, but I don't see anything for *.

>glen herrmannsfeldt wrote:

>> dpb wrote:
>>

>>> J. F. Cornwall wrote:

>> (snip)
>>

>>>> READ (*,'(A)') DBUFF

>> (snip)
>>

>>> I don't know about Sun Studio and someone (Bob Corbett may see) surely
>>> does. However, as a quickie, what does INQUIRE() for RECL tell you,
>>> if anything?

>>
>> Is UNIT=* allowed for INQUIRE?

> In article aioe.org>, dpb non.net> wrote:
>

>>glen herrmannsfeldt wrote:
>>

>>>dpb wrote:
>>>
>>>

>>>>J. F. Cornwall wrote:

>>>
>>>(snip)
>>>
>>>

>>>>>READ (*,'(A)') DBUFF

>>>
>>>(snip)
>>>
>>>

>>>>I don't know about Sun Studio and someone (Bob Corbett may see) surely
>>>>does. However, as a quickie, what does INQUIRE() for RECL tell you, ...

> dpb wrote:
>

>> J. F. Cornwall wrote:
>>

>>> Hi all. I am fairly sure about the cause of a bug in some old code
>>> I'm reworking, but thought I would confirm here.
>>>
>>> I have a chunk of code...

> John Harper wrote:

>> In article aioe.org>, dpb non.net> wrote:
>>

>>> glen herrmannsfeldt wrote:
>>>

>>>> dpb wrote:
>>>>
>>>>

>>>>> J. F. Cornwall wrote:

>>>>
>>>> (snip)
>>>>
>>>>

>>>>>> READ (*,'(A)') DBUFF

>>>>
>>>> (snip)
>>>>
>>>>

>>>>> I don't know about Sun Studio and someone (Bob Corbett may see) ...