Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
New Contributor I
18 Views

Bug in ifort 19: Submodules cannot access entities from module scope if using private statement

Here is a bug introduced in ifort version 19.0.0.117

Module Item_Class
  implicit none
  Type ::  Item_Type
  End Type
End Module

Module Container_Class
  use Item_Class ,only: Item_Type
  implicit none
  private
  Interface
    Module Subroutine Proc()
    End Subroutine
  End Interface
End Module

SubModule(Container_Class) Container_SubClass
  implicit none
  contains
  Module Procedure Proc
    type(Item_Type) :: Item
  End Procedure
End SubModule

 

This code compile fine using ifort 18 but with ifort 19 I got the following error message

 

Example_Module.F90(21): error #6457: This derived type name has not been declared.   [ITEM_TYPE]
    type(Item_Type) :: Item
---------^

which is obviously wrong.

The problem is that the entities (variables, procedures, derived-type) accessed through host association in the module scope are not passed to sub-modules if the module uses the private statement. My understanding is that this behavior is incorrect since all the entities in the module scope should be accessible from within the sub-modules independently of the private/public statement of the module.

Removing the "private" statement in the module scope of the "Container_Class" module fixes the problem.

I've submitted this to OSC.

0 Kudos
1 Reply
Highlighted
Moderator
18 Views

This issue is fixed in 19.0 Update 1 

0 Kudos