procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/31540 ([Regression 4.2 only] character((constant expression)) for external function)

Browse source 
2007-05-06  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/31540
	* resolve.c (resolve_fl_procedure): Resolve constant character
	lengths.

2007-05-06  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/31540
	* gfortran.dg/char_result_4.f90: New test.

From-SVN: r124476
This commit is contained in:
Paul Thomas 2007-05-06 15:13:11 +00:00
parent 8111a921e9
commit 3fc0889aa7
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gcc/testsuite/gfortran.dg/char_length_4.f90 Normal file
View file

@ -0,0 +1,13 @@
! { dg-do compile }
! tests the fix for PR31540, in which the character lengths in
! parentheses were not resolved.
!
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
!
subroutine pfb()
implicit none
external pfname1, pfname2
character ((136)) pfname1
character ((129+7)) pfname2
return
end