1! { dg-do compile } 2! { dg-options "-std=f95" } 3program a 4 5 implicit none 6 7 integer n 8 character(len=70) str 9 integer, allocatable :: i(:) 10 11 n = 42 12 allocate(i(4), source=n) ! { dg-error "Fortran 2003: SOURCE tag" } 13 allocate(i(4), stat=n, errmsg=str) ! { dg-error "Fortran 2003: ERRMSG tag" } 14 15end program a 16