https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63867
Bug ID: 63867
Summary: LEN is lost for a CHARACTER variable inside SELECT
TYPE
Product: gcc
Version: 5.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: mrestelli at gmail dot com
Consider the following code:
program p
implicit none
character(len=5) :: str
str = 'abcde'
call checklen1(str)
call checklen2(str)
contains
subroutine checklen1(s)
character(len=*), intent(in) :: s
call checklen2(s)
end subroutine checklen1
subroutine checklen2(s)
class(*), intent(in) :: s
select type(s)
type is(character(len=*))
write(*,*) "Len is ",len(s)
write(*,*) "s is ",s
end select
end subroutine checklen2
end program p
When compiled with gfortran it prints
$ ./test
Len is 0
s is
Len is 5
s is abcde
while the expected output is twice the same, i.e.
$ ./test
Len is 5
s is abcde
Len is 5
s is abcde
I.e., inside the SELECT TYPE the lenght of the string is lost, but
only when the actual argument is itself a dummy argument with LEN=* .
$ gfortran --version
GNU Fortran (GCC) 5.0.0 20141114 (experimental)
Marco
