diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2009-10-16 23:10:43 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2009-10-16 23:10:43 +0200 |
| commit | 0ae278e724b821268d715bdb7535aefef0575b1e (patch) | |
| tree | 74273dd62402ab14ae2d7cda3239f6af8f06299b /gcc/fortran | |
| parent | 02be8f4a8a9088e9f00717b1720b2158830c7ac1 (diff) | |
| download | gcc-0ae278e724b821268d715bdb7535aefef0575b1e.zip gcc-0ae278e724b821268d715bdb7535aefef0575b1e.tar.gz gcc-0ae278e724b821268d715bdb7535aefef0575b1e.tar.bz2 | |
re PR fortran/41719 ([OOP] invalid: Intrinsic assignment involving polymorphic variables)
2009-10-16 Janus Weil <janus@gcc.gnu.org>
PR fortran/41719
* resolve.c (resolve_ordinary_assign): Reject intrinsic assignments
to polymorphic variables.
2009-10-16 Janus Weil <janus@gcc.gnu.org>
PR fortran/41719
* gfortran.dg/class_5.f03: New test case.
* gfortran.dg/typebound_operator_2.f03: Fixing invalid test case.
* gfortran.dg/typebound_operator_4.f03: Ditto.
From-SVN: r152919
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 8 |
2 files changed, 14 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index fd3a2bc..17bbc06 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2009-10-16 Janus Weil <janus@gcc.gnu.org> + + PR fortran/41719 + * resolve.c (resolve_ordinary_assign): Reject intrinsic assignments + to polymorphic variables. + 2009-10-16 Paul Thomas <pault@gcc.gnu.org> PR fortran/41648 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index d0911b4..d76c461 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -7629,6 +7629,14 @@ resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns) } } + /* F03:7.4.1.2. */ + if (lhs->ts.type == BT_CLASS) + { + gfc_error ("Variable must not be polymorphic in assignment at %L", + &lhs->where); + return false; + } + gfc_check_assign (lhs, rhs, 1); return false; } |