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

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2013-12-19
     Ever confirmed|0                           |1

--- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Compiling the test in comment 0 with gfortran 4.8.2 or trunk r206033 gives

pr46991.f90:16.39:

         CLASS(REC), INTENT(IN) :: A(*)
                                       1
Error: Assumed size polymorphic objects or components, such as that at (1),
have not yet been implemented
pr46991.f90:34.43:

             CLASS(REC), INTENT(IN) :: A(*)
                                           1
Error: Assumed size polymorphic objects or components, such as that at (1),
have not yet been implemented
pr46991.f90:18.19:

         CALL SUB2(A, N)
                   1
Warning: Type mismatch in argument 'a' at (1); passed REAL(4) to TYPE(rec)
pr46991.f90:38.9:

         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
pr46991.f90:39.19:

         CALL SUB1(A, 10)
                   1
Error: Type mismatch in argument 'a' at (1); passed CLASS(rec) to REAL(4)