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

Fortran : ICE in maybe_canonicalize_comparison_1 PR92993

Browse source 
This issue has been fixed by PR94090.  Add test case to ensure that
this does not re-occur.

2020-06-08  Mark Eggleston  <markeggleston@gcc.gnu.org>

gcc/testsuite/

	PR fortran/92993
	* gfortran.dg/pr92993.f90: New test.
This commit is contained in:
Mark Eggleston 2020-06-04 05:53:31 +01:00
parent 8be374e027
commit 5dc3986103
1 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gcc/testsuite/gfortran.dg/pr92993.f90 Normal file
View file

@ -0,0 +1,21 @@
! { dg-do compile }
!
! Original by G. Steinmetz
function f(x)
integer, intent(in) :: x
integer :: f
f = x
end
program p
interface
function f(x) ! { dg-error "POINTER attribute mismatch in function result" }
integer, intent(in) :: x
integer, pointer :: f
end
end interface
integer :: a(2) = [1, 2]
if ( a(2) .ne. f(a(2)) ) stop 1
end