1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
! { dg-do compile }
! PR fortran/67805
! Original code contributed by Gerhard Steinmetz
! gerhard dot steinmetz dot fortran at t-online dot de
!
subroutine p
integer, parameter :: n = 1
integer, parameter :: m(3) = [1, 2, 3]
character(len=1) s(2)
s = [character((m(1))) :: 'x', 'y'] ! OK.
s = [character(m(1)) :: 'x', 'y'] ! OK.
s = [character(m) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
! The next line should case an error, but causes an ICE.
s = [character(m(2:3)) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
call foo(s)
s = [character('') :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
s = [character(['']) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
s = [character([.true.]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
s = [character([.false.]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
s = [character([1.]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
s = [character([1d1]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
s = [character([(0.,1.)]) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
s = [character(null()) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
call foo(s)
end subroutine p
subroutine q
print *, '1: ', [character(.true.) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
print *, '2: ', [character(.false.) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
print *, '3: ', [character(1.) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
print *, '4: ', [character(1d1) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
print *, '5: ', [character((0.,1.)) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }
print *, '6: ', [character(null()) :: 'x', 'y'] ! { dg-error "INTEGER expression expected" }.
end subroutine q
|
