gcc/testsuite/gfortran.dg/recursive_check_3.f90

   1 ! { dg-do compile }
   2 !
   3 module m1
   4 contains
   5 pure pure subroutine a1(b) ! { dg-error "Duplicate PURE attribute specified" }
   6   real, intent(in) :: b    ! { dg-error "Unexpected data declaration statement" }
   7 end subroutine a1          ! { dg-error "Expecting END MODULE" }
   8 end module m1
   9
  10 module m2
  11 contains
  12 elemental elemental subroutine a2(b) ! { dg-error "Duplicate ELEMENTAL attribute" }
  13   real, intent(in) :: b    ! { dg-error "Unexpected data declaration statement" }
  14 end subroutine a2          ! { dg-error "Expecting END MODULE" }
  15 end module m2
  16
  17 module m3
  18 contains
  19 recursive recursive subroutine a3(b) ! { dg-error "Duplicate RECURSIVE attribute" }
  20   real, intent(in) :: b    ! { dg-error "Unexpected data declaration statement" }
  21 end subroutine a3          ! { dg-error "Expecting END MODULE" }
  22 end module m3