diff options
author | Dan Albert <danalbert@google.com> | 2015-10-13 16:28:19 -0700 |
---|---|---|
committer | Dan Albert <danalbert@google.com> | 2015-10-13 16:28:19 -0700 |
commit | a8c075f72b231c37823661ba0d7d082a21cd39d9 (patch) | |
tree | 395aa3b848d56037292e50466643453485073018 /gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90 | |
parent | 5aff2e0142aca13849b4e51de503e71d5010efa6 (diff) | |
download | toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.tar.gz toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.tar.bz2 toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.zip |
Remove gcc-4.8.
Change-Id: Iee9c6985c613f58c82e33a91722d371579eb290f
Diffstat (limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90')
-rw-r--r-- | gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90 | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90 deleted file mode 100644 index 8380b9d2d..000000000 --- a/gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90 +++ /dev/null @@ -1,51 +0,0 @@ -! { dg-do compile } -! -! PR fortran/49110 -! PR fortran/52843 -! -! Based on a contributed code by jwmwalrus@gmail.com -! -! Before, character(len=:) result variable were rejected in PURE functions. -! -module mod1 - use iso_c_binding - implicit none - -contains - pure function c_strlen(str) - character(KIND = C_CHAR), intent(IN) :: str(*) - integer :: c_strlen,i - - i = 1 - do - if (i < 1) then - c_strlen = 0 - return - end if - if (str(i) == c_null_char) exit - i = i + 1 - end do - c_strlen = i - 1 - end function c_strlen - pure function c2fstring(cbuffer) result(string) - character(:), allocatable :: string - character(KIND = C_CHAR), intent(IN) :: cbuffer(*) - integer :: i - - continue - string = REPEAT(' ', c_strlen(cbuffer)) - - do i = 1, c_strlen(cbuffer) - if (cbuffer(i) == C_NULL_CHAR) exit - string(i:i) = cbuffer(i) - enddo - - string = TRIM(string) - end function -end module mod1 - -use mod1 -character(len=:), allocatable :: str -str = c2fstring("ABCDEF"//c_null_char//"GHI") -if (len(str) /= 6 .or. str /= "ABCDEF") call abort() -end |