OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/68283 (ice: gfc_variable_attr(): Bad array reference)

Browse Source 
2016-01-24  Dominique d'Humieres  <dominiq@lps.ens.fr>

	PR fortran/68283
	gfortran.dg/pr68283.f90: New test.

From-SVN: r232776
This commit is contained in:
Dominique d'Humieres 2016-01-24 14:13:38 +01:00
parent 16acb1a8c7
commit e9fe2963a9
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gcc/testsuite/gfortran.dg/pr68283.f90 Normal file
View File

@ -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