[bug/f2003 feature?] import and derived type using pointer procedure to itself

[bug/f2003 feature?] import and derived type using pointer procedure to itself

Hi,
following code:

module ala

   implicit none
   type :: foo

      procedure(bar), pointer :: baz

   end type
   interface

      subroutine bar(this)

         import foo

         implicit none

         class(foo), intent(inout) :: this

      end subroutine bar

   end interface

end module ala
gives me
import_intel.f90(5): error #6404: This name does not have a type, and must have an explicit type.   [BAZ]

      procedure(bar), pointer :: baz

---------------------------------^

compilation aborted for import_intel.f90 (code 1)
with
Intel Fortran Intel 64 Compiler XE for applications running on Intel 64, Version 12.1.5.339 Build 20120612
Whereas it works fine with gcc-4.6 -std=f2003 and pgi-11.2.
AFAIK following construct using import is allowed by Fortran Standard, but maybe I'm wrong :)
Best regards,
Kacper Kowalik

2 posts / 0 new
Last post
For more complete information about compiler optimizations, see our Optimization Notice.

This is a bug that is fixed for our September release.

Retired 12/31/2016

Leave a Comment

Please sign in to add a comment. Not a member? Join today