PGI User Forum
 SearchSearch   MemberlistMemberlist     RegisterRegister   ProfileProfile    Log inLog in 

CUDA-x86.

bug in 13.7 allocatable class array

 
Post new topic   Reply to topic    PGI User Forum Forum Index -> Programming and Compiling
View previous topic :: View next topic  
Author Message
rohou



Joined: 04 Aug 2011
Posts: 11

PostPosted: Sat Aug 24, 2013 10:21 am    Post subject: bug in 13.7 allocatable class array Reply with quote

I believe the code below is valid and GNU, Intel and NAG seem to agree.
Code:
module pg_test

    type point
        real(kind=8)    ::  coo(3)  =   [0.0d0,0.0d0,0.0d0]
    end type point
   
    type, extends(point) :: waypoint
   integer    :: cnt
    end type waypoint

contains

    subroutine filament_init(   points_in)
        implicit none
        class(point),  intent(in)      ::  points_in(:)   
        class(point), allocatable      ::  points(:)
        allocate(points(size(points_in)),source=points_in)
        print *, points(1)%coo(1)
        select type (points)
            type is (waypoint)
          print *, 'type is waypoint'
            class default
          print *, points(1)%coo(1)
          print *, points_in(1)%coo(1)
        end select 
    end subroutine filament_init
end module pg_test

program test
 print *, 'hello'
end program test


But pgfortran 13.7 throws the following severe at compile time:
Quote:
PGF90-S-0076-Subscripts specified for non-array variable points (test.f90: 23)


Version information:
Quote:
$ pgfortran --version

pgfortran 13.7-0 64-bit target on x86-64 Linux -tp sandybridge


Let me know if you need more information to reproduce
Back to top
View user's profile
mkcolg



Joined: 30 Jun 2004
Posts: 6134
Location: The Portland Group Inc.

PostPosted: Mon Aug 26, 2013 9:08 am    Post subject: Reply with quote

Hi rohou,

I was able to reproduce the error with 13.7 so added a problem report, TPR#19541, and sent it off to engineering. The good news is that the code compiled and ran correctly with our internal develpment compiler, meaning that our engineer had already found and fixed the problem. Hopefully this means that the fix will be available in the 13.9 release.

Thanks,
Mat
Back to top
View user's profile
jtull



Joined: 30 Jun 2004
Posts: 438

PostPosted: Mon Nov 25, 2013 5:24 pm    Post subject: TPR 19541 - User code gets erroneous error "Subscripts. Reply with quote

This problem has been fixed as of the 13.9 release.
Thanks for your submission.

regards,
dave
Back to top
View user's profile
Display posts from previous:   
Post new topic   Reply to topic    PGI User Forum Forum Index -> Programming and Compiling All times are GMT - 7 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group