mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-10 07:46:41 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/83146 (ICE on SELECT CASE statement with associate name)

Browse Source 
2018-10-14  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/83146
	* gfortran.dg/associate_43.f90: New test.

From-SVN: r265148
This commit is contained in:
Paul Thomas 2018-10-14 09:25:13 +00:00
parent 049f5ef927
commit 188a13e145
2 changed files with 40 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2018-10-14 Paul Thomas <pault@gcc.gnu.org>
PR fortran/83146
* gfortran.dg/associate_43.f90: New test.
2018-10-14 Anthony Green <green@moxielogic.com>
* gcc.c-torture/execute/20101011-1.c: Adjust for moxie.

35
gcc/testsuite/gfortran.dg/associate_43.f90 Normal file
View File

@ -0,0 +1,35 @@
! { dg-do run }
!
! Check that PR83146 remains fixed.
!
! Contributed by Neil Carlson <neil.n.carlson@gmail.com>
!
type foo
integer n
end type
type bar
type(foo) array(2)
end type
type(bar) b
integer :: m=0
b%array(1)%n = 42
b%array(2)%n = 43
call assoc(1)
m = 1
call assoc(2)
contains
subroutine assoc (n)
integer :: n
associate (n_array => b%array%n)
select case (n_array(n))
case (42)
if (m .ne. 0) stop 1
case default
if (m .eq. 0) stop 2
end select
end associate
end subroutine assoc
end