mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
14 lines
339 B
Fortran
14 lines
339 B
Fortran
! { dg-do link }
|
|
! { dg-compile-aux-modules "class_45a.f03" }
|
|
!
|
|
! PR 50227: [4.7 Regression] [OOP] ICE-on-valid with allocatable class variable
|
|
!
|
|
! Contributed by Andrew Benson <abenson@caltech.edu>
|
|
|
|
program Test
|
|
use G_Nodes
|
|
class(t0), allocatable :: c
|
|
allocate(t1 :: c)
|
|
end program Test
|
|
! { dg-final { cleanup-modules "G_Nodes" } }
|