2 ! This tests the patch for PR25024.
4 ! PR25024 - The external attribute for subroutine a would cause an ICE.
6 EXTERNAL A
! { dg-error "EXTERNAL attribute conflicts with SUBROUTINE" }
10 external ext
! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }
16 external z
! OK no conflict
22 external ext
! OK, valid external reference.
23 external main
! { dg-error "PROGRAM attribute conflicts with EXTERNAL" }
27 external ext1
! { dg-error "Duplicate EXTERNAL attribute" }
37 external inv
! { dg-error "EXTERNAL attribute conflicts with FUNCTION" }