Segmentation Fault in Front End

[mecej4]

The following subprogram cannot be compiled with Absoft Fortran 20.0:

Code: [Select]

    module sindeg
       real :: deg2rad = 1.745329e-2
       double precision :: ddeg2rad = 1.74532925199433d-2


       interface sind
          module procedure sind
          module procedure dsind
       end interface


    contains


       real function sind(x)
          real :: x


          sind = sin(x*deg2rad)
          return
       end function sind


       double precision function dsind(x)
          double precision :: x


          dsind = sin(x*ddeg2rad)
          return
       end function dsind


    end module sindeg

[forumadmin]

This issue has been duplicated by Absoft Technical Support and will be addressed in the next service pack for Pro Fortran 20.0.  The issue seems to be related to using the name of an existing intrinsic function, in this case SIND, as both a generic procedure and as a specific procedure. In the example presented above, changing the name of the specific procedure SIND to SIND1 allows the code to compile:
 
     real function sind1(x)
          real :: x
          sind1 = sin(x*deg2rad)
          return
       end function sind1