1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Ensure that accessibility works on GENERIC statement 3module m 4 generic, public :: public => specific 5 generic, private :: private => specific 6 contains 7 subroutine specific 8 end 9end 10program main 11 use m 12 generic :: public => internal 13 generic :: private => internal 14 call public 15 call public(1) 16 !ERROR: No specific subroutine of generic 'private' matches the actual arguments 17 call private 18 call private(1) 19 contains 20 subroutine internal(n) 21 end 22end 23