3 ! Type-bound procedures
4 ! Check for correct access-checking on type-bound procedures.
11 PROCEDURE, NOPASS, PRIVATE :: priv => proc
12 PROCEDURE, NOPASS, PUBLIC :: publ => proc
20 ! This is inside the module.
25 CALL obj%priv () ! { dg-bogus "PRIVATE" }
31 ! This is outside the module.
37 CALL obj%priv () ! { dg-error "PRIVATE" }
41 ! { dg-final { cleanup-modules "m" } }