Quantcast
Channel: Recent posts
Viewing all articles
Browse latest Browse all 415

Pointer to submodule: There has been an internal compiler error (C0000005).

$
0
0

1>fortcom: Fatal: There has been an internal compiler error (C0000005).

The mentioned error is obtained with the following piece of code in an Intel Parallel Studio XE 2017 Update 2 (I also attach the code and compilation results).

MODULE parent_moduleDownloadapplication/zipDownload (4.25 KB)
    IMPLICIT NONE
    !> Abstract interfaces
    ABSTRACT INTERFACE
        SUBROUTINE proc_void()
        END SUBROUTINE proc_void
    END INTERFACE
   
    !> Procedure pointer
    PROCEDURE(proc_void),POINTER::ini_acel=>null()
   
    !> Submodule subroutine interface
    INTERFACE
        MODULE SUBROUTINE ini_acel_augHamilton()
        END SUBROUTINE ini_acel_augHamilton
    END INTERFACE

CONTAINS
    !C************************************************************
    !> Subroutine pointing the procedure pointer to the submodule subroutine
    SUBROUTINE finaliza_modelo
        INI_acel=>INI_acel_augHamilton
    END SUBROUTINE finaliza_modelo
END MODULE parent_module
!C************************************************************
!C************************************************************

!C************************************************************
!C************************************************************
SUBMODULE (parent_module) submod1
IMPLICIT NONE
CONTAINS
!C************************************************************
MODULE SUBROUTINE ini_acel_augHamilton()
    PRINT *,'Inside ini_acel_augHamilton'
END SUBROUTINE ini_acel_augHamilton

END SUBMODULE submod1
!C************************************************************
!C************************************************************

!C************************************************************
!C************************************************************
PROGRAM main
    USE parent_module
   
    CALL INI_ACEL_augHamilton
    CALL ini_acel
END PROGRAM main
   


Viewing all articles
Browse latest Browse all 415

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>