SAD部屋 - Ticket-8 Diff

! SAD on OSF1 crashed at EPICS\$CaPut[]

:Priority:Normal
:Reporter:Akio Morita
:Status:Closed
:Assigned to:?
:Version:634
:Milestone:635
:Created:2006-09-23

!! Description

EPICS\$CaPut[]の実装でCrashする
forrtl: severe (174): SIGSEGV, segmentation fault occurred
    0: __FINI_00_remove_gp_range [0x24021488]
    1: __FINI_00_remove_gp_range [0x2402aa84]
    2: __FINI_00_remove_gp_range [0x26859cf0]
    3: tfcaput_ [/users/amorita/src/compile/oldsad/current/src/tfefun3ep.f: 259, 0x1205703c]
    4: tfefun3_ [/users/amorita/src/compile/oldsad/current/src/tfefun3.f: 42, 0x120f8d50]
    5: tfefunref_ [/users/amorita/src/compile/oldsad/current/src/tfefun.f: 268, 0x1209f3c8]

ilist(1,ia+1) == 0の状態で以下のIF文の評価は正しく動かない
             if(ilist(1,ia+1) .eq. 0
      $           .or. ilist(1,ilist(1,ia+1)+1) .eq. ntfreal)then
Note: Fortranでは、.and.や.or.の左右の項の評価順序は規定されていない

!! Attachement files
{{attach_map('Ticket-8')}}
{{attach_form('','')}}//{{attach_form('','')}}

!! Changelog
{{its_edit_ticket_form}}//{{its_edit_ticket_form}}