Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/select_type_48.f90 @ 152:2b5abeee2509
update gcc11
| author | anatofuz |
|---|---|
| date | Mon, 25 May 2020 07:50:57 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 145:1830386684a0 | 152:2b5abeee2509 |
|---|---|
| 1 ! { dg-do run } | |
| 2 ! | |
| 3 ! Test the fix for PR92976, in which the TYPE IS statement caused an ICE | |
| 4 ! because of the explicit bounds of 'x'. | |
| 5 ! | |
| 6 ! Contributed by Gerhard Steinmetz <gscfq@t-online.de> | |
| 7 ! | |
| 8 program p | |
| 9 type t | |
| 10 integer :: i | |
| 11 end type | |
| 12 class(t), allocatable :: c(:) | |
| 13 allocate (c, source = [t(1111),t(2222),t(3333)]) | |
| 14 call s(c) | |
| 15 if (sum (c%i) .ne. 3333) stop 1 | |
| 16 contains | |
| 17 subroutine s(x) | |
| 18 class(t) :: x(2) | |
| 19 select type (x) | |
| 20 ! ICE as compiler attempted to assign descriptor to an array | |
| 21 type is (t) | |
| 22 x%i = 0 | |
| 23 ! Make sure that bounds are correctly translated. | |
| 24 call counter (x) | |
| 25 end select | |
| 26 end | |
| 27 subroutine counter (arg) | |
| 28 type(t) :: arg(:) | |
| 29 if (size (arg, 1) .ne. 2) stop 2 | |
| 30 end | |
| 31 end |