[Bug fortran/46991] [OOP] polymorphic assumed-size actual arguments

[anlauf at gmx dot de]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46991

Harald Anlauf <anlauf at gmx dot de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gmx dot de

--- Comment #1 from Harald Anlauf <anlauf at gmx dot de> 2012-12-23 22:17:25 UTC ---
The code is rejected by nagfor:

NAG Fortran Compiler Release 5.3.1(907)
Error: pr46991.f90, line 16: CLASS array A must be a pointer, allocatable or
assumed-shape
Errors in declarations, no further processing for SUB1
Error: pr46991.f90, line 34: CLASS array A must be a pointer, allocatable or
assumed-shape

Changing from assumed size to assumed shape, however, make the
code compilable.

The code modified this way still does not compile with current trunk:

         A = [ (REC2(I, I+1), I = 1, 10) ]
         1
Error: Variable must not be polymorphic in intrinsic assignment at (1) - check
that there is a matching specific subroutine for '=' operator

It is funny to see that ifort 13 generates a similar message:

pr46991.f90(38): error #6197: An assignment of different structure types is
invalid.
         A = [ (REC2(I, I+1), I = 1, 10) ]
----------------^
pr46991.f90(38): error #8304: In an intrinsic assignment statement, variable
shall not be polymorphic.   [A]
         A = [ (REC2(I, I+1), I = 1, 10) ]
---------^