gcc/testsuite/gfortran.dg/allocate_with_typespec_4.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-w" }
   3 subroutine not_an_f03_intrinsic
   4
   5    implicit none
   6
   7    byte, allocatable :: x, y(:)
   8    real*8, allocatable :: x8, y8(:)
   9    double complex :: z
  10
  11    type real_type
  12       integer mytype
  13    end type real_type
  14
  15    type(real_type), allocatable :: b, c(:)
  16
  17    allocate(byte :: x)            ! { dg-error "Error in type-spec at" }
  18    allocate(byte :: y(1))         ! { dg-error "Error in type-spec at" }
  19
  20    allocate(real*8 :: x)          ! { dg-error "Invalid type-spec at" }
  21    allocate(real*8 :: y(1))       ! { dg-error "Invalid type-spec at" }
  22    allocate(real*4 :: x8)         ! { dg-error "Invalid type-spec at" }
  23    allocate(real*4 :: y8(1))      ! { dg-error "Invalid type-spec at" }
  24    allocate(double complex :: d1) ! { dg-error "not a nonprocedure pointer or an allocatable" }
  25    allocate(real_type :: b)
  26    allocate(real_type :: c(1))
  27
  28 end subroutine not_an_f03_intrinsic