blob: 45b05cd7d3cb664823d8e5e3449a056af7bfd482 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do run }
! { dg-options "-finit-character=32" }
program init_flag_6
call char_test
end program init_flag_6
! Test some initializations for both implicitly and
! explicitly declared local variables.
subroutine char_test
character*1 c1
character*8 c2, c3(5)
character c4(10)
if (c1 /= ' ') call abort
if (c2 /= ' ') call abort
if (c3(1) /= ' ') call abort
if (c3(5) /= ' ') call abort
if (c4(5) /= ' ') call abort
end subroutine char_test
|
