Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/transfer_intrinsic_3.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Tests the fix for PR41772 in which the empty array reference ! 'qname(1:n-1)' was not handled correctly in TRANSFER. ! ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> ! module m implicit none contains pure function str_vs(vs) result(s) character, dimension(:), intent(in) :: vs character(len=size(vs)) :: s s = transfer(vs, s) end function str_vs subroutine has_key_ns(uri, localname, n) character(len=*), intent(in) :: uri, localname integer, intent(in) :: n if ((n .lt. 2) .and. (len (uri) .ne. 0)) then STOP 1 else IF ((n .ge. 2) .and. (len (uri) .ne. n - 1)) then STOP 2 end if end subroutine end module m use m implicit none character, dimension(:), pointer :: QName integer :: n allocate(qname(6)) qname = (/ 'a','b','c','d','e','f' /) do n = 0, 3 call has_key_ns(str_vs(qname(1:n-1)),"", n) end do deallocate(qname) end