PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / class_46.f03
blob04a419fc45f73472ed1ac91d00c1ba01685b9a1d
1 ! { dg-do run }
3 ! PR 50625: [4.6/4.7 Regression][OOP] ALLOCATABLE attribute lost for module CLASS variables
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
7 module m
8 type t
9 end type t
10 class(t), allocatable :: x
11 end module m
13 use m
14 implicit none
15 if (allocated(x)) STOP 1
16 end