[gcc] GCC 4.5.0=>4.5.1

gcc/gcc/testsuite/gfortran.dg/typebound_call_2.f03

Index: gcc/gcc/testsuite/gfortran.dg/typebound_call_2.f03
diff --git a/gcc/gcc/testsuite/gfortran.dg/typebound_call_2.f03 b/gcc/gcc/testsuite/gfortran.dg/typebound_call_2.f03
index d3149d56d39a8493832007e696770ed6dcca8163..5d70f7c17ef8a679e53561e98a61d2d3d7146642 100644
--- a/gcc/gcc/testsuite/gfortran.dg/typebound_call_2.f03
+++ b/gcc/gcc/testsuite/gfortran.dg/typebound_call_2.f03
@@ -1,8 +1,5 @@
 ! { dg-do run }
 
-! FIXME: Remove -w after polymorphic entities are supported.
-! { dg-options "-w" }
-
 ! Type-bound procedures
 ! Check calls with passed-objects.
 
@@ -27,7 +24,7 @@ CONTAINS
 
   INTEGER FUNCTION func_add (me, x)
     IMPLICIT NONE
-    TYPE(add) :: me
+    CLASS(add) :: me
     INTEGER :: x
     func_add = me%val + x
   END FUNCTION func_add
@@ -35,14 +32,14 @@ CONTAINS
   SUBROUTINE sub_add (res, me, x)
     IMPLICIT NONE
     INTEGER, INTENT(OUT) :: res
-    TYPE(add), INTENT(IN) :: me
+    CLASS(add), INTENT(IN) :: me
     INTEGER, INTENT(IN) :: x
     res = me%val + x
   END SUBROUTINE sub_add
 
   SUBROUTINE swap (me1, me2)
     IMPLICIT NONE
-    TYPE(trueOrFalse), INTENT(INOUT) :: me1, me2
+    CLASS(trueOrFalse), INTENT(INOUT) :: me1, me2
 
     IF (.NOT. me1%val .OR. me2%val) THEN
       CALL abort ()