diff options
author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2005-11-10 22:49:29 +0100 |
---|---|---|
committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-11-10 22:49:29 +0100 |
commit | c040ffff7577b6798465f6c025de2b1f77cec1e9 (patch) | |
tree | 175d54b20da14c63f04d177c7e4554d912932378 /gcc/testsuite | |
parent | 5f4b73288dd35d516ff8a3b2b5ba19715beaaace (diff) | |
download | gcc-c040ffff7577b6798465f6c025de2b1f77cec1e9.zip gcc-c040ffff7577b6798465f6c025de2b1f77cec1e9.tar.gz gcc-c040ffff7577b6798465f6c025de2b1f77cec1e9.tar.bz2 |
re PR fortran/24643 (Unclassifiable statement on implicitly typed character substring)
fortran/
PR fortran/24643
* primary.c (match_varspec): Check for implicitly typed CHARACTER
variables before matching substrings.
testsuite/
PR fortran/24643
* gfortran.dg/implicit_6.f90, gfortran.dg/implicit_7.f90: New.
From-SVN: r106753
Diffstat (limited to 'gcc/testsuite')
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/implicit_6.f90 | 8 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/implicit_7.f90 | 7 |
3 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2a845c3..ec545ea 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-11-10 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> + + PR fortran/24643 + * gfortran.dg/implicit_6.f90, gfortran.dg/implicit_7.f90: New. + 2005-11-10 Alexandre Oliva <aoliva@redhat.com> * gcc.dg/attr-weakref-1.c: Add exit (0) to avoid spurious diff --git a/gcc/testsuite/gfortran.dg/implicit_6.f90 b/gcc/testsuite/gfortran.dg/implicit_6.f90 new file mode 100644 index 0000000..bb7fe32 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/implicit_6.f90 @@ -0,0 +1,8 @@ +! { dg-do compile } +! PR 24643 +! substring references on implicitly typed CHARACTER variables didn't work + PROGRAM P + IMPLICIT CHARACTER*8 (Y) + YLOCAL='A' + YBTABLE=YLOCAL(1:2) + END diff --git a/gcc/testsuite/gfortran.dg/implicit_7.f90 b/gcc/testsuite/gfortran.dg/implicit_7.f90 new file mode 100644 index 0000000..750d245 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/implicit_7.f90 @@ -0,0 +1,7 @@ +! { dg-do compile } +! PR 24643 +! This tests a case where the compiler used to ICE in an early +! incarnation of the patch +ylocal=1 +ybtable=ylocal(1:2) ! { dg-error "Unclassifiable" } +end |