1*61d361d6SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic 29e37b1e5SGabriel Ravier! Catch NULL() actual argument association with allocatable dummy argument 385a40ce6SPeter Klauslerprogram test 4*61d361d6SPeter Klausler !ERROR: NULL() actual argument 'NULL()' may not be associated with allocatable dummy argument 'a=' without INTENT(IN) 585a40ce6SPeter Klausler call foo1(null()) 6*61d361d6SPeter Klausler !PORTABILITY: Allocatable dummy argument 'a=' is associated with NULL() 7*61d361d6SPeter Klausler call foo2(null()) 885a40ce6SPeter Klausler call foo3(null()) ! ok 985a40ce6SPeter Klausler contains 1085a40ce6SPeter Klausler subroutine foo1(a) 1185a40ce6SPeter Klausler real, allocatable :: a 1285a40ce6SPeter Klausler end subroutine 1385a40ce6SPeter Klausler subroutine foo2(a) 1485a40ce6SPeter Klausler real, allocatable, intent(in) :: a 1585a40ce6SPeter Klausler end subroutine 1685a40ce6SPeter Klausler subroutine foo3(a) 1785a40ce6SPeter Klausler real, allocatable, optional :: a 1885a40ce6SPeter Klausler end subroutine 1985a40ce6SPeter Klauslerend 20