blob: 7b1a8fea9db53db77014eb20150ff44dc4c2fd1b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do run }
! PR fortran/65429
program foo
implicit none
character(*), parameter :: s(*) = [ character(5) :: 'abcde', 'fghij' ]
character(*), parameter :: t(*) = [ character(31) :: ]
character(*), parameter :: u(*) = [ 'qwerty', 'asdfgh', 'zxcvbn']
character(*), parameter :: v(*) = ['','']
if ((size(s) /= 2).or.(len(s)/=5)) STOP 1
if ((size(t) /= 0).or.(len(t)/=31)) STOP 2
if ((size(u) /= 3).or.(len(u)/=6)) STOP 3
if ((size(v) /= 2).or.(len(v)/=0)) STOP 4
if ((s(1)/='abcde').or.(s(2)/='fghij')) STOP 5
if ((u(1)/='qwerty').or.(u(2)/='asdfgh').or.(u(3)/='zxcvbn')) STOP 6
end program foo
|
