blob: 46b11f9112f58bfa5f4e42efa7f60db4c596b222 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do run }
! { dg-additional-options "-fcheck=bounds" }
!
! PR fortran/87045 - pointer to array of character
! Contributed by Valery Weber
! This used to give an invalid run-time error
program test
character(:), dimension(:), allocatable, target :: t
character(:), pointer, dimension(:) :: p
allocate( character(3) :: t(2) )
t(1) = "abc"
t(2) = "123"
p => t
if (size (p) /= 2) stop 1
if (len (p) /= 3) stop 2
if (p(1) /= "abc") stop 3
if (p(2) /= "123") stop 4
end program test
|
