structure member as id in inquire causes error

[Grady_Schofield]

I think that the following is a bug. It seems that if your "ID" is a member of a structure, then compiler doesn't think that it is an integer.

module the_module
type transfer_descriptorinteger :: file_unitinteger :: transfer_id
end type
end module
---------------------------------------

program id_buguse the_moduleimplicit noneinteger :: tmp_idlogical :: pending_flagtype( transfer_descriptor ) :: tx
inquire(UNIT=tx%file_unit, ID=tx%transfer_id, PENDING=pending_flag) !*** error here
tmp_id = tx%transfer_id
inquire(UNIT=tx%file_unit, ID=tmp_id, PENDING=pending_flag)   !*** no error here
end program id_bug
Here is the error:
Error1 Error: This variable must be of type INTEGER. [ID]S:srcdisk_io_testid_bugid_bug.f9026

[Steven_L_Intel1]

Amusing. Thanks for bringing this to our attention.