| ! { dg-do run } | |
| ! | |
| ! Test of fix for case in comment #7 of PR84088. | |
| ! | |
| ! Contributed by Tom de Vries <vries@gcc.gnu.org> | |
| ! | |
| implicit none | |
| integer(kind=4) z | |
| call foo (z) | |
| contains | |
| subroutine foo (a) | |
| type (*), dimension (..), contiguous :: a | |
| integer(kind = 4) :: i | |
| if(sizeof (a) .ne. sizeof (i)) STOP 1 | |
| end subroutine foo | |
| end program |