diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2007-05-06 15:13:11 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2007-05-06 15:13:11 +0000 |
| commit | 3fc0889aa7740d26efd760f65ef333b88ab7f859 (patch) | |
| tree | 470a9d1ace3189c49915bd95b2ee94963ddcca5a | |
| parent | 8111a921e9c63612e5b608439f2130276e845e0e (diff) | |
| download | gcc-3fc0889aa7740d26efd760f65ef333b88ab7f859.zip gcc-3fc0889aa7740d26efd760f65ef333b88ab7f859.tar.gz gcc-3fc0889aa7740d26efd760f65ef333b88ab7f859.tar.bz2 | |
re PR fortran/31540 ([Regression 4.2 only] character((constant expression)) for external function)
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
| -rw-r--r-- | gcc/testsuite/gfortran.dg/char_length_4.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/char_length_4.f90 b/gcc/testsuite/gfortran.dg/char_length_4.f90 new file mode 100644 index 0000000..13a9b78 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/char_length_4.f90 @@ -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 |