gfxgfx
 
Please login or register.

Login with username, password and session length
 
gfx gfx
gfx
1516 Posts in 502 Topics by 733 Members - Latest Member: tbickel3 October 29, 2020, 01:33:09 AM
*
gfx* Home | Help | Search | Login | Register | gfx
gfx
Absoft User Forum  |  Support  |  Windows  |  Segmentation Fault in Front End
gfx
gfxgfx
 

Author Topic: Segmentation Fault in Front End  (Read 491 times)

mecej4

  • Jr. Member
  • **
  • Posts: 66
Segmentation Fault in Front End
« on: March 16, 2020, 01:49:32 PM »
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


« Last Edit: March 16, 2020, 02:28:01 PM by mecej4 »

forumadmin

  • Administrator
  • Sr. Member
  • *****
  • Posts: 304
Re: Segmentation Fault in Front End
« Reply #1 on: April 13, 2020, 03:33:12 PM »
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



Absoft User Forum  |  Support  |  Windows  |  Segmentation Fault in Front End
 

gfxgfx
gfx gfx
Powered by MySQL Powered by PHP Valid XHTML 1.0! Valid CSS!