gcc/testsuite/gfortran.dg/pr78741.f90

   1 ! { dg-do compile }
   2 ! PR fortran/78741
   3 ! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran at t-online.de>
   4 subroutine s(n, x)
   5    integer :: n
   6    character(n) :: x
   7    character, pointer :: z(:)
   8    x = 'a'
   9    return
  10 entry g(n, x)           ! { dg-error "is already defined" }
  11    x = 'b'
  12 contains
  13    subroutine g         ! { dg-error "(1)" }
  14       z(1) = x(1:1) ! { dg-error "Unclassifiable statement" }
  15    end
  16 end