diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/allocate_derived_4.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocate_derived_4.f90 | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/allocate_derived_4.f90 b/gcc/testsuite/gfortran.dg/allocate_derived_4.f90 new file mode 100644 index 000000000..06d127004 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/allocate_derived_4.f90 @@ -0,0 +1,19 @@ +! { dg-do compile } +! +! PR 45577: [4.6 Regression] Bogus(?) "... type incompatible with source-expr ..." error +! +! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr> + +program main + +type b_obj + integer,allocatable :: c(:) + real :: r = 5. +end type b_obj + +type (b_obj),allocatable :: b(:) +integer,allocatable :: c(:) + +allocate(b(3),c(3)) + +end program main |