Conference nicctr::kap-users

383.0. "kf90 and 4.0b hangs" by RHETT::HALETKY () Wed May 14 1997 15:43

    Hello,
    
    
    We have the following code that does not hang on v4.0a but
    does hang on v4.0b.
    
    cat f.f  
          program test
          real a(200)
    c*kap*parallel region
    c*kap*parallel do
          do i = 1, 200
            a(i) = float(i)
          end do
    c*kap*end parallel region
          stop
          end
    
    kf90 -fkapargs='-conc' -o f f.f
    
     KAP/Digital_UA_F90   3.1 k271526 970117     14-May-1997   13:08:09
    
         ### c*kap*parallel region
         ### in line 3 procedure TEST of file f.f ### 
    The variable "I" was placed on the LOCAL list.
    The variable "A" was placed on the SHARED list.
    0 errors in file f.f
     KAP -- Syntax Warnings Detected
    
    If this is run and compiled on v4.0a it works fine. On v4.0b it does
    not work well. It hangs spinning into infinity.
    
    Comments?
    
    best regards,
    Ed Haletky
    Digital CCSC

    note 2.last looks promising
    
    Chuck