blob: 04518d6c941faa4f51bdc5f7a80094c8a91ab2c9 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do compile }
!
! PR fortran/58658
!
! Contributed by VladimÃr Fuka
!
subroutine sub(a)
class(*),allocatable :: a
a => null() ! { dg-error "Non-POINTER in pointer association context \\(pointer assignment\\)" }
end subroutine
|