diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/class_25.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/class_25.f03 | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_25.f03 b/gcc/testsuite/gfortran.dg/class_25.f03 new file mode 100644 index 000000000..3588b7759 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/class_25.f03 @@ -0,0 +1,28 @@ +! { dg-do run } +! +! PR [OOP] Compile-time errors on typed allocation and pointer function result assignment +! +! Contributed by Damian Rouson <damian@rouson.net> + +module m + + implicit none + + type foo + end type + + type ,extends(foo) :: bar + end type + +contains + + function new_bar() + class(foo) ,pointer :: new_bar + allocate(bar :: new_bar) + end function + +end module + +end + +! { dg-final { cleanup-modules "m" } } |