diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/typebound_operator_2.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/typebound_operator_2.f03 | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/typebound_operator_2.f03 b/gcc/testsuite/gfortran.dg/typebound_operator_2.f03 index 57b34486313..b8dc5c9d104 100644 --- a/gcc/testsuite/gfortran.dg/typebound_operator_2.f03 +++ b/gcc/testsuite/gfortran.dg/typebound_operator_2.f03 @@ -50,7 +50,6 @@ CONTAINS LOGICAL FUNCTION func (me, b) ! { dg-error "must be a SUBROUTINE" } CLASS(t), INTENT(OUT) :: me CLASS(t), INTENT(IN) :: b - me = t () func = .TRUE. END FUNCTION func |