Issue 113895
Summary [flang][debug] Wrong value for assumed shape character array.
Labels flang
Assignees abidh
Reporter abidh
    Consider the following code. 

```
program string_array
  implicit none
  character(len=10), dimension(2) :: keys, vals

  keys = [character(len=10) :: "user", "dbname"]
  vals = [character(len=10) :: "ben", "motivation"]

  call show(keys, vals)

 contains

  subroutine show(akeys, avals)
    character(len=*), intent(in) :: akeys(:), avals(:)
    integer                      :: i

    do i = 1, size(akeys)
      print *, trim(akeys(i)), ": ", trim(avals(i))
    end do

  end subroutine show

end program string_array
```

When stopped in `show`, the `akeys` and `avals` shows up as array of empty string.

```
(gdb) p akeys
$8 = ('', '')
(gdb) p akeys(1)
$9 = ''
(gdb) p avals
$10 = ('', '')
(gdb) p avals(1)
$11 = ''
```
_______________________________________________
llvm-bugs mailing list
[email protected]
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs

Reply via email to