diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocate_derived_1.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocate_with_typespec.f90 | 38 |
2 files changed, 39 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/allocate_derived_1.f90 b/gcc/testsuite/gfortran.dg/allocate_derived_1.f90 index b9f6d5580a0..08665abb265 100644 --- a/gcc/testsuite/gfortran.dg/allocate_derived_1.f90 +++ b/gcc/testsuite/gfortran.dg/allocate_derived_1.f90 @@ -32,7 +32,7 @@ allocate(t1 :: x(2)) allocate(t2 :: x(3)) allocate(t3 :: x(4)) - allocate(tx :: x(5)) ! { dg-error "is not an accessible derived type" } + allocate(tx :: x(5)) ! { dg-error "not a nonprocedure pointer or an allocatable variable" } allocate(u0 :: x(6)) ! { dg-error "may not be ABSTRACT" } allocate(v1 :: x(7)) ! { dg-error "is type incompatible with typespec" } diff --git a/gcc/testsuite/gfortran.dg/allocate_with_typespec.f90 b/gcc/testsuite/gfortran.dg/allocate_with_typespec.f90 new file mode 100644 index 00000000000..686abdb5b1b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/allocate_with_typespec.f90 @@ -0,0 +1,38 @@ +! +! { dg-do compile } +! +! PR fortran/44929 +! +! The module is contributed by Satish.BD <bdsatish@gmail.com>. +! The subroutines are from Tobias Burnus and Steve Kargl. +! +module temp + + type, abstract :: abst + !! empty + end type abst + + type, extends(abst) :: real_type + !! empty + end type real_type + + contains + + function create(name) result(obj) + character(len=*), intent(in) :: name + class(abst), pointer :: obj + allocate(real_type :: obj) + end function create +end module temp + +subroutine z + real(8), allocatable :: r8 + allocate(real(kind=8) :: r8) +end subroutine z + +subroutine y + real(8), allocatable :: r8 + allocate(real(8) :: r8) +end subroutine y +! { dg-final { cleanup-modules "temp" } } + |