1! { dg-do run }
2! PR fortran/71203 - used to ICE on zero-length arrays or substrings
3! Derived from original test cases by Gerhard Steinmetz
4
5program p
6  implicit none
7  character(3), parameter :: a(4) = ' '
8  character(*), parameter :: b(4) = 'abc'
9  character(*), parameter :: x(*) = a(2:2)(3:1)
10  character(*), parameter :: y(*) = a(2:1)(3:1)
11  character(*), parameter :: z(*) = b(2:1)(2:3)
12  if (size (x) /= 1 .or. len(x) /= 0) stop 1
13  if (size (y) /= 0 .or. len(y) /= 0) stop 2
14  if (size (z) /= 0 .or. len(z) /= 2) stop 3
15end
16