diff options
| author | Dominique d'Humieres <dominiq@gcc.gnu.org> | 2016-01-24 14:13:38 +0100 |
|---|---|---|
| committer | Dominique d'Humieres <dominiq@gcc.gnu.org> | 2016-01-24 14:13:38 +0100 |
| commit | e9fe2963a9ef03565151edb49080b730d11aa8d6 (patch) | |
| tree | 924ddb8ad68672bd0b3c03cc7d513fb60db9b5e8 | |
| parent | 16acb1a8c70aed62fb95847244affe15219bad2e (diff) | |
| download | gcc-e9fe2963a9ef03565151edb49080b730d11aa8d6.zip gcc-e9fe2963a9ef03565151edb49080b730d11aa8d6.tar.gz gcc-e9fe2963a9ef03565151edb49080b730d11aa8d6.tar.bz2 | |
re PR fortran/68283 (ice: gfc_variable_attr(): Bad array reference)
2016-01-24 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/68283
gfortran.dg/pr68283.f90: New test.
From-SVN: r232776
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr68283.f90 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr68283.f90 b/gcc/testsuite/gfortran.dg/pr68283.f90 new file mode 100644 index 0000000..81f7412 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr68283.f90 @@ -0,0 +1,15 @@ +! { dg-do compile } +MODULE neb_utils + IMPLICIT NONE + INTEGER, PARAMETER :: dp=8 + TYPE neb_var_type + REAL(KIND=dp), DIMENSION(:, :), POINTER :: xyz, int, wrk + END TYPE neb_var_type +CONTAINS + SUBROUTINE get_neb_force() + INTEGER :: i + TYPE(neb_var_type), POINTER :: forces + REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: dtmp1, wrk + dtmp1 = forces%wrk(:,i)-dot_product_band ! { dg-error "Symbol 'dot_product_band' at .1. has no IMPLICIT type" } + END SUBROUTINE get_neb_force +END MODULE neb_utils |