1! { dg-do run }
2!
3! Test the fix for PR70149 in which the string length for
4! 'number_string' was not initialized.
5!
6! Contributed by Walter Spector  <w6ws@earthlink.net>
7!
8module myptr_mod
9  implicit none
10
11  integer, target, save :: int_data = 42
12  character(16), target, save :: char_data = 'forty two'
13
14  integer, pointer :: number => int_data
15  character(:), pointer :: number_string => char_data
16
17end module
18
19  use myptr_mod
20  if (LEN (number_string) .ne. 16) stop 1
21  if (trim (number_string) .ne. 'forty two') stop 2
22end
23
24