gcc/testsuite/gfortran.dg/pr98661.f90

   1 ! { dg-do compile }
   2 ! PR fortran/98661 - valgrind issues with error recovery
   3 !
   4 ! Test issues related to former testcase charlen_03.f90
   5 program p
   6   implicit none
   7   type t
   8      character(:), pointer :: c(n) ! { dg-error "must have a deferred shape" }
   9      real,     allocatable :: x(n) ! { dg-error "must have a deferred shape" }
  10   end type
  11 end
  12
  13 subroutine s
  14 ! no 'implicit none'
  15   type u
  16      character(:), pointer :: c(n) ! { dg-error "must have a deferred shape" }
  17      real,     allocatable :: x(n) ! { dg-error "must have a deferred shape" }
  18   end type
  19 end